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

[vuongtoituonglai]

Chào Anh(Chị) và các Bạn Diễn Đàn GPE,
Mình đang gặp phải một vấn đề về tổng hợp dữ liệu, do phải làm thủ công nên mất rất nhiều thời gian. Hôm nay mình gửi dề tài này rất mong nhận được sự giúp đỡ của các anh (chị) và các bạn trên diễn đàn GPE.
Tất cả dữ liệu điều có trong file đính kèm
Trân trọng cảm ơn.

 

[Let'GâuGâu]

Chào Anh(Chị) và các Bạn Diễn Đàn GPE,
Mình đang gặp phải một vấn đề về tổng hợp dữ liệu, do phải làm thủ công nên mất rất nhiều thời gian. Hôm nay mình gửi dề tài này rất mong nhận được sự giúp đỡ của các anh (chị) và các bạn trên diễn đàn GPE.
Tất cả dữ liệu điều có trong file đính kèm
Trân trọng cảm ơn.

kết quả các cột khác ra sao? F,G,H????
code tạm vậy, sai sửa tiếp

Sub tonghop()
Dim stock, layout, arr(1 To 60000, 1 To 16) As Variant
Dim i, j, k, r As Long
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
stock = Sheets("Stock").[b4:b60000]
layout = Sheets("Layout").[c1:R81]

For i = 1 To UBound(stock)
    If stock(i, 1) = "" Then Exit For
    If Not dic.exists(stock(i, 1)) Then
        k = k + 1
        dic.Add stock(i, 1), k
    End If
Next
If k Then
For j = 1 To UBound(layout, 2)
    For i = 1 To UBound(layout) - 1
        If dic.exists(layout(i, j)) Then
            r = dic.Item(layout(i, j))
            arr(r, j) = layout(i + 1, j)
        End If
    Next
Next

    With Sheets("Stock")
        .[e4].Resize(60000, 16).ClearContents
        .[e4].Resize(k, 16) = arr
    End With
End If
End Sub

 

[vuongtoituonglai]

Cảm ơn bạn,
Cột F,G,H... để trống bạn à, chắc mình giải thích chưa rỏ nên code chưa hoạt động.
Dữ liệu ban đầu Sheet "Stock"từ dòng số 4 trở xuống là trống rỗng(form trống), sau khi mình chạy code thì các mã hàng như AVSSH 0.5F B, AVSS 0.5F V/Y, AVSS 0.5F V.....của Sheet "Layout" được copy sang cột B4 của Sheet "Stock", và trọng lượng của từng loại tương ứng bên Sheet "Layout" cũng được copy sang cột E4 của Sheet "Stock"
Rất mong tiếp tục nhận được sự giúp đỡ của bạn và những bạn khác trên GPE.

 

[Let'GâuGâu]

Cảm ơn bạn,
Cột F,G,H... để trống bạn à, chắc mình giải thích chưa rỏ nên code chưa hoạt động.
Dữ liệu ban đầu Sheet "Stock"từ dòng số 4 trở xuống là trống rỗng(form trống), sau khi mình chạy code thì các mã hàng như AVSSH 0.5F B, AVSS 0.5F V/Y, AVSS 0.5F V.....của Sheet "Layout" được copy sang cột B4 của Sheet "Stock", và trọng lượng của từng loại tương ứng bên Sheet "Layout" cũng được copy sang cột E4 của Sheet "Stock"
Rất mong tiếp tục nhận được sự giúp đỡ của bạn và những bạn khác trên GPE.

sai nữa sữa nữa

Sub tonghop()
Dim layout, arr(1 To 60000, 1 To 5) As Variant
Dim i, j, k As Long

layout = Sheets("Layout").[c1:R81]

For i = 1 To UBound(layout) - 1
    For j = 1 To UBound(layout, 2)
        If layout(i, j) <> "" And IsNumeric(layout(i + 1, j)) And Len(Trim(layout(i + 1, j))) Then
            k = k + 1
            arr(k, 1) = k
            arr(k, 2) = layout(i, j)
            arr(k, 5) = layout(i + 1, j)
        End If
    Next
Next

    With Sheets("Stock")
        .[a4:e60000].ClearContents
        .[a4].Resize(k, 5) = arr
    End With

End Sub

 

[doveandrose]

sai nữa sữa nữa

ủa sao càng sửa càng ngắn , ghê thật !

 

[Let'GâuGâu]

ủa sao càng sửa càng ngắn , ghê thật !

ngắn đã chắc gì trúng đâu....hihihihi

 

[vuongtoituonglai]

Cảm ơn Let'GâuGâu nhé, nếu có vấn đề thì mình sẽ nhờ bạn tiếp tục giúp đỡ sau.