Xin code VBA tạo bảng dữ liệu từ các cột liên quan đến nhau. (1 người xem)

[laogiahamvui]

Thân chào ACE, do chưa biết chỗ đăng bài nên tôi xin đăng tạm ở đây.
Tôi sử dụng excel cho mục đích phục vụ công việc và kiến thức về VBA thì không có, do đó cũng nhờ diễn đàn GPE mà tôi hiểu chút chút. Nay nhờ ACE làm giúp bài toán này bằng code VBA (chi tiết yêu cầu được ghi trong file đính kèm). Cảm ơn ACE rất nhiều!

 

[Quang_Hải]

Thân chào ACE, do chưa biết chỗ đăng bài nên tôi xin đăng tạm ở đây.
Tôi sử dụng excel cho mục đích phục vụ công việc và kiến thức về VBA thì không có, do đó cũng nhờ diễn đàn GPE mà tôi hiểu chút chút. Nay nhờ ACE làm giúp bài toán này bằng code VBA (chi tiết yêu cầu được ghi trong file đính kèm). Cảm ơn ACE rất nhiều!

Thử code này coi sao. Kết quả không giống lắm với kết quả tạm

Sub ExportData()
Dim Nam(), NuocXK(), NuocNK(), KhuVucXK()
Dim i, j, n, m, k, Res(1 To 65536, 1 To 9)
With Sheet1
   Nam = .[A2:B2].Value
   NuocXK = .Range(.[C2], .[D65536].End(3)).Value
   NuocNK = .Range(.[E2], .[F65536].End(3)).Value
   KhuVucXK = .Range(.[G2], .[H65536].End(3)).Value
End With
For i = 1 To UBound(Nam)
   For j = 1 To UBound(NuocXK)
      For n = 1 To UBound(NuocNK)
         For m = 1 To UBound(KhuVucXK)
            k = k + 1
            Res(k, 1) = Nam(i, 1)
            Res(k, 2) = Nam(i, 2)
            Res(k, 3) = NuocXK(j, 1)
            Res(k, 4) = NuocXK(j, 2)
            Res(k, 5) = NuocNK(n, 1)
            Res(k, 6) = NuocNK(n, 2)
            Res(k, 7) = KhuVucXK(m, 1)
            Res(k, 8) = KhuVucXK(m, 2)
            Res(k, 9) = Res(k, 4) & "/" & Res(k, 6) & "/" & Res(k, 2) & "/" & Res(k, 8)
         Next
      Next
   Next
Next
Sheet2.[J2].Resize(k, 9) = Res
End Sub

 

[laogiahamvui]

Cảm ơn bác rất nhiều, tôi mừng quá nên thấy kết quả đúng ngay tróc luôn, chắc phải đợi chút nữa mới kiểm tra lại. Cảm ơn bác lần nữa nhé!