MACRO với hàm HLOOKUP

[nguyen6571gpex]

Chào ACE!
Tôi có một file trong đó có Sheet chứa dữ liệu muốn dò tìm dữ liẹu đó sang Sheet mới có cấu trúc khác. Vì không biết VBA nên dùng HLOOKUP từng cell sẽ rất lâu. Mong ACE giúp đỡ! Cảm ơn

 

[BuiQuangThuan]

Thêm 1 code khác tham khảo sub NopPGD

Sub ABC()
    Dim a(), b(), i&, d As Object, j&
    Set d = CreateObject("scripting.dictionary")
    a = Sheets("FET").Range("C3:V52").Value
    b = Sheets("NopPGD").Range("A3:AX52").Value
    For j = 3 To 50 Step 10
        Sheets("NopPGD").Cells(5, j).Resize(48, 8).ClearContents
    Next
    For j = 1 To UBound(a, 2)
        If a(1, j) <> Empty Then
            d(a(1, j)) = j
        End If
    Next
    For j = 1 To UBound(b, 2)
        If d.exists(b(1, j)) = True Then
            For i = 3 To UBound(b)
                If UBound(Split(a(i, d.Item(b(1, j))), "-")) > 0 Then
                    b(i, j) = Split(a(i, d.Item(b(1, j))), "-")(0)
                    b(i, j + 1) = Split(a(i, d.Item(b(1, j))), "-")(1)
                End If
            Next
        End If
    Next
    Sheets("NopPGD").Range("A3").Resize(UBound(b), UBound(b, 2)).Value = b
End Sub