Code Copy Dữ Liệu (1 người xem)

[letinnghia]

Chào các anh, chị và các bạn GPE!
Tôi có 1 file excel rất nhiều sheet, các anh chị và các bạn giúp tôi một đoạn code copy dữ liệu từ sheet"A,B,C" sang sheet"TONG". Chỉ copy các dòng có chữ TOTAL của sheet "A,B,C" từ cột J trở đi sang sheet "TONG".
Chân thành cảm ơn.

 

[letinnghia]

Có anh chị nào biết ra tay giúp đỡ mình với.

 

[Ba Tê]

Chào các anh, chị và các bạn GPE!
Tôi có 1 file excel rất nhiều sheet, các anh chị và các bạn giúp tôi một đoạn code copy dữ liệu từ sheet"A,B,C" sang sheet"TONG". Chỉ copy các dòng có chữ TOTAL của sheet "A,B,C" từ cột J trở đi sang sheet "TONG".
Chân thành cảm ơn.

Thử code này:

Public Sub TongHop()
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To 236), I As Long, J As Long, K As Long, Total As String
Total = "TOTAL" '<----------Ca Chon'
For Each Ws In Worksheets
    If Ws.Name <> "TONG" Then
        sArr = Ws.Range(Ws.[B5], Ws.[B5].End(xlDown)).Resize(, 243).Value
        For I = 1 To UBound(sArr, 1)
            If UCase(sArr(I, 1)) = Total Then
                K = K + 1
                dArr(K, 1) = Total & "-" & K
                For J = 9 To 243
                    dArr(K, J - 7) = sArr(I, J)
                Next J
            End If
        Next I
    End If
Next Ws
With Sheets("TONG")
    .[B3:IC1000].ClearContents
    If K Then .[B3].Resize(K, 236) = dArr
End With
End Sub

Code này chạy xong kết quả là 1 bảng "trống rỗng" vì chẳng tìm đâu ra chữ "TOTAL" trong cột B.

 

[letinnghia]

Thử code này:

Public Sub TongHop()
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To 236), I As Long, J As Long, K As Long, Total As String
Total = "TOTAL" '<----------Ca Chon'
For Each Ws In Worksheets
    If Ws.Name <> "TONG" Then
        sArr = Ws.Range(Ws.[B5], Ws.[B5].End(xlDown)).Resize(, 243).Value
        For I = 1 To UBound(sArr, 1)
            If UCase(sArr(I, 1)) = Total Then
                K = K + 1
                dArr(K, 1) = Total & "-" & K
                For J = 9 To 243
                    dArr(K, J - 7) = sArr(I, J)
                Next J
            End If
        Next I
    End If
Next Ws
With Sheets("TONG")
    .[B3:IC1000].ClearContents
    If K Then .[B3].Resize(K, 236) = dArr
End With
End Sub

Code này chạy xong kết quả là 1 bảng "trống rỗng" vì chẳng tìm đâu ra chữ "TOTAL" trong cột B
Cảm ơn Bác Ba Tê. Đúng như lời bác nói khi chạy code thì kế quả là một bang "trống rỗng", tôi không hiểu tại sao là như vậy và tôi đã thử nhiều cách khác nhau nhưng không có kết quả gì hết, nhờ bác tiếp tục giúp tôi. Cảm ơn bác.

 

[Hai Lúa Miền Tây]

Code này chạy xong kết quả là 1 bảng "trống rỗng" vì chẳng tìm đâu ra chữ "TOTAL" trong cột B
Cảm ơn Bác Ba Tê. Đúng như lời bác nói khi chạy code thì kế quả là một bang "trống rỗng", tôi không hiểu tại sao là như vậy và tôi đã thử nhiều cách khác nhau nhưng không có kết quả gì hết, nhờ bác tiếp tục giúp tôi. Cảm ơn bác.

"TOTAL" hay là "TOLAL" code thì là "TOTAL" mà dữ liệu thì là "TOLAL"?

 

[Ba Tê]

Thử code này:

Public Sub TongHop()
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To 236), I As Long, J As Long, K As Long, Total As String
Total = "TOTAL" '<----------Ca Chon'
For Each Ws In Worksheets
    If Ws.Name <> "TONG" Then
        sArr = Ws.Range(Ws.[B5], Ws.[B5].End(xlDown)).Resize(, 243).Value
        For I = 1 To UBound(sArr, 1)
            If UCase(sArr(I, 1)) = Total Then
                K = K + 1
                dArr(K, 1) = Total & "-" & K
                For J = 9 To 243
                    dArr(K, J - 7) = sArr(I, J)
                Next J
            End If
        Next I
    End If
Next Ws
With Sheets("TONG")
    .[B3:IC1000].ClearContents
    If K Then .[B3].Resize(K, 236) = dArr
End With
End Sub

Code này chạy xong kết quả là 1 bảng "trống rỗng" vì chẳng tìm đâu ra chữ "TOTAL" trong cột B
Cảm ơn Bác Ba Tê. Đúng như lời bác nói khi chạy code thì kế quả là một bang "trống rỗng", tôi không hiểu tại sao là như vậy và tôi đã thử nhiều cách khác nhau nhưng không có kết quả gì hết, nhờ bác tiếp tục giúp tôi. Cảm ơn bác.

Đã nói đến như vậy, ghi chú trong Code luôn mà bạn vẫn ... chưa hiểu?
Bạn xem trong cột B của các sheet A,B,C, có dòng nào có chữ "TOTAL" không?
Dữ liệu của bạn đều là "TOLAL", mà yêu cầu thì lấy những dòng có chữ "TOTAL".
Cách sửa:
- Sửa tất cả các chữ "TOLAL" trong các sheet A,B,C... thành "TOTAL"
- Hoặc Sửa chữ "TOTAL" trong code thành "TOLAL" theo tự điễn của bạn.

Total = "TOTAL" '<----------Sửa cái này'

 

[letinnghia]

Đã nói đến như vậy, ghi chú trong Code luôn mà bạn vẫn ... chưa hiểu?
Bạn xem trong cột B của các sheet A,B,C, có dòng nào có chữ "TOTAL" không?
Dữ liệu của bạn đều là "TOLAL", mà yêu cầu thì lấy những dòng có chữ "TOTAL".
Cách sửa:
- Sửa tất cả các chữ "TOLAL" trong các sheet A,B,C... thành "TOTAL"
- Hoặc Sửa chữ "TOTAL" trong code thành "TOLAL" theo tự điễn của bạn.

Total = "TOTAL" '<----------Sửa cái này'

Cảm ơn bác Ba Tê nhiều nhé. Thật là làm phiền bác.