Nhờ các bạn giúp code nối các sheet vào sheet TongHop. (2 người xem)

[Thbv]

Nhờ các bạn giúp code nối các sheet vào 1 sheet TongHop. Copy nối đuôi từ sheet 0118 đến sheet 1218 vào sheet TongHop ,chỉ lấy cột Tên ở các sheet là cột H (Điều kiện lấy tên duy nhất không trùng. Xin cảm ơn các bạn. File đính kèm đây ạ

 

[Ba Tê]

Nhờ các bạn giúp code nối các sheet vào 1 sheet TongHop. Copy nối đuôi từ sheet 0118 đến sheet 1218 vào sheet TongHop ,chỉ lấy cột Tên ở các sheet là cột H (Điều kiện lấy tên duy nhất không trùng. Xin cảm ơn các bạn. File đính kèm đây ạ

Sheet TongHop là sheet nào trong file?

 

[Thbv]

Thành thật xin lỗi bạn. Mình quên chưa tạo sheet tổng hợp. Bạn thêm mình 1 sheet tên tổng hợp rồi tổng hợp vào đó. Mong bạn giúp đỡ. Cảm ơn bạn nhiều

 

[Ba Tê]

Thành thật xin lỗi bạn. Mình quên chưa tạo sheet tổng hợp. Bạn thêm mình 1 sheet tên tổng hợp rồi tổng hợp vào đó. Mong bạn giúp đỡ. Cảm ơn bạn nhiều

Bạn tạo thêm 1 sheet mới "GPE", format cột C kiểu text rồi chạy Sub này:

Public Sub sGpe()
Dim Dic As Object, Ws As Worksheet, sArr(), dArr(1 To 100000, 1 To 2)
Dim I As Long, K As Long, R As Long, Txt As String
Set Dic = CreateObject("Scripting.Dictionary")
For Each Ws In ThisWorkbook.Worksheets
    If IsNumeric(Ws.Name) Then
        sArr = Ws.Range("H1", Ws.Range("H1000000").End(xlUp)).Resize(, 2).Value2
        R = UBound(sArr)
        For I = 1 To R
            Txt = UCase(sArr(I, 1))
            If Not Dic.Exists(Txt) Then
                K = K + 1
                Dic.Item(Txt) = K
                dArr(K, 1) = sArr(I, 1)
                dArr(K, 2) = Ws.Name
            End If
        Next I
    End If
Next Ws
Sheets("GPE").Range("B1").Resize(1000000, 2).ClearContents
Sheets("GPE").Range("B1").Resize(K, 2) = dArr
Set Dic = Nothing
End Sub

 

[Thbv]

Vâng E thử chạy. E cảm ơn A nhiều

Bài đã được tự động gộp: 10/5/19

nó báo lỗi run time error '1004'
Lỗi dòng này màu vàng: Sheets("GPE").Range("B1").Resize(K, 2) = dArr
A xem lai giúp em với

 

[BuiQuangThuan]

Vâng E thử chạy. E cảm ơn A nhiều

Bài đã được tự động gộp: 10/5/19

nó báo lỗi run time error '1004'
Lỗi dòng này màu vàng: Sheets("GPE").Range("B1").Resize(K, 2) = dArr
A xem lai giúp em với

hình như phải la sheet GPE thì phải

 

[huonglien1901]

Vâng E thử chạy. E cảm ơn A nhiều

Bài đã được tự động gộp: 10/5/19

nó báo lỗi run time error '1004'
Lỗi dòng này màu vàng: Sheets("GPE").Range("B1").Resize(K, 2) = dArr
A xem lai giúp em với

Bác BATE bảo bạn làm những điều sau bạn đã làm chưa? Bạn tạo thêm 1 sheet mới "GPE", format cột C kiểu text rồi chạy Sub này:
File mình chạy code của Bác @Ba Tê như thế này!

 

[Thbv]

E đã thành công. Cảm ơn Bác Ba Tê nhiều