Dùng vòng lập để copy dữ liệu (1 người xem)

[v.quang92]

Chào các anh,

Em có 1 file excel cần dùng vòng lập để copy (vì rất nhiều sheet đánh số thứ tự 1 ->100), có 1 sheet chính chứa công thức + các sheet từ 1 - 100
VD: Ô A1 Sheet chính ='1'!A1+'2'!A1+'3'!A1+'4'!A1+'5'!A1+......
Em cần 1 macro có thể copy số liệu từ sheet chính qua các sheet từ 1 - 100: Copy A3:A8 sheet1 qua A1:A6 (1), lúc này giá trị A3:A8 ở sheet1 sẽ thay đổi và tiếp tục copy giá trị đó qua A1:A6 (2), cứ copy giá trị A3:A8 ở sheet1 qua các sheet (3,4,5..) sau mỗi lần thay đổi.
Nhờ các anh hỗ trợ giúp em.
Cảm ơn các anh.

 

[be_09]

Chào các anh,

Em có 1 file excel cần dùng vòng lập để copy (vì rất nhiều sheet đánh số thứ tự 1 ->100), có 1 sheet chính chứa công thức + các sheet từ 1 - 100
VD: Ô A1 Sheet chính ='1'!A1+'2'!A1+'3'!A1+'4'!A1+'5'!A1+......
Em cần 1 macro có thể copy số liệu từ sheet chính qua các sheet từ 1 - 100: Copy A3:A8 sheet1 qua A1:A6 (1), lúc này giá trị A3:A8 ở sheet1 sẽ thay đổi và tiếp tục copy giá trị đó qua A1:A6 (2), cứ copy giá trị A3:A8 ở sheet1 qua các sheet (3,4,5..) sau mỗi lần thay đổi.
Nhờ các anh hỗ trợ giúp em.
Cảm ơn các anh.

Sẽ không ai trả lời bài này vì các vấn đề sau:

- File của bạn không đúng với cái thực tế bạn cần nên khi trả lời cho bạn thì sẽ phát sinh trả lời dài dài.
- Sheet1 dùng tổng hợp và các sheet khác không có tiêu đề, khi thêm tiêu đề như File thực tế thì không thể áp dụng được.
- Cột dữ liệu bạn đưa vào cột A thì không thực tế, thông thường cột này bdùng làm thứ tự hoặc mã hàng hay mã dữ liệu.

Tôi góp ý cho bạn để lần sau bạn hỏi vấn đề gì đó thì phải kèm File với các sheet có tiêu đề ở vị trí dòng đúng như File gốc (đối với code dùng tiêu đề thì coi như phá sản), còn dữ liệu bên dưới thì có thể là giả định

 

[SA_DQ]

Option Explicit
Sub CopyAfter()
 Dim Sh As Worksheet
 
 Sheet1.Select
 For Each Sh In ThisWorkbook.Worksheets
    If IsNumeric(Sh.Name) Then
        Sh.[A1:A6].Value = [A3:A8].Value
    End If
 Next Sh
End Sub

 

[v.quang92]

Sẽ không ai trả lời bài này vì các vấn đề sau:

- File của bạn không đúng với cái thực tế bạn cần nên khi trả lời cho bạn thì sẽ phát sinh trả lời dài dài.
- Sheet1 dùng tổng hợp và các sheet khác không có tiêu đề, khi thêm tiêu đề như File thực tế thì không thể áp dụng được.
- Cột dữ liệu bạn đưa vào cột A thì không thực tế, thông thường cột này bdùng làm thứ tự hoặc mã hàng hay mã dữ liệu.

Tôi góp ý cho bạn để lần sau bạn hỏi vấn đề gì đó thì phải kèm File với các sheet có tiêu đề ở vị trí dòng đúng như File gốc (đối với code dùng tiêu đề thì coi như phá sản), còn dữ liệu bên dưới thì có thể là giả định

Em cảm ơn anh đã góp ý!

 

[v.quang92]

Option Explicit
Sub CopyAfter()
 Dim Sh As Worksheet
 
 Sheet1.Select
 For Each Sh In ThisWorkbook.Worksheets
    If IsNumeric(Sh.Name) Then
        Sh.[A1:A6].Value = [A3:A8].Value
    End If
 Next Sh
End Sub

Chào anh,
Em đã dùng được rồi, rất cảm ơn anh đã giúp đỡ.