Nhờ sữa code file tổng hợp dữ liệu từ nhiều sheet

[saobekhonglac]

Chào anh/chị.

Nhờ anh/chị xem giúp em code tổng hợp dữ liệu từ nhiều sheet nhưng sau khi áp dụng cho cột C thì không đúng, cột A với B thì đúng. Cột D thì báo lỗi “dArr(K, J) = sArr(I, J)”

Cám ơn anh/chị.

 

[saobekhonglac]

Em chỉ muốn copy 1 cột trong 4 cột đó thôi, nhưng khi em thay đổi từ A12 đến D12 thì chỉ có A & B là đúng, C sai, D báo lỗi. Cũng cùng 1 code đó nhưng làm trên file khác thì được.

Bạn cho dữ liệu vậy tôi hiểu được chết liền đó...
Tóm lại bạn pải cho tiêu đề vào các sheet cần tổng hợp

Sau đó tại sheet SUM bạn muốn tổng hợp cột nào, ra làm sao chứ...

Nói vậy ai hiểu chết liền...

Còn nếu muốn copy Cột A đến cột D sang sheet SUM thì sửa lại vầy:

Public Sub Hai()
Dim Ws As Worksheet, sArr(), dArr(1 To 60000, 1 To 4), I As Long, J As Long, K As Long
For Each Ws In Worksheets
    If Ws.Name <> "Sum" Then
        sArr = Ws.Range(Ws.[A12], Ws.[A12].End(xlDown)).Resize(, 4).Value2
        For I = 1 To UBound(sArr, 1)
        If Len(sArr(I, 1)) Then
            K = K + 1
            For J = 1 To 4
                dArr(K, J) = sArr(I, J)
            Next J
        End If
        Next I
    End If
Next Ws
Sheets("Sum").[A2:D60000].ClearContents
Sheets("Sum").[A2].Resize(K, 4) = dArr
End Sub

 

[saobekhonglac]

Tôi đã nói. Dữ liệu không rõ ràng, cột thì thiếu dữ liệu. Cột có cột không, phải có dư liêu...mới căn cứ vào đó mà khai bảo mảng dữ liệu ban đầu. Từ đó mới căn cứ là bạn cần lấy cột nào...xét như nào...

Sao lại đem code file này, gắn file kia. mà so sánh là chạy được hay không. Code là cho từng file, cụ thể từng file mới xài được. Đâu thể đem Râu ông nọ ma cắm cằm bà kia...

Tóm lại: nói chuyện với bạn + với dữ liệu của bạn như vậy chán quá...Bạn tự xử đi nếu không rõ ràng mạch lạc, đầy đủ ra...muốn cái gì./.

Vậy nha!

Anh xem lại file, em cần lấy dữ liệu cột D (từ D12) của sheet còn lại, sheet Sum em đã có làm tay.