[Help] VBA copy dữ liệu theo danh sách có sẵn

[ngoctuyen1995]

Thân chào cả nhà GPEX!

mong cả nhà giúp em một việc ạ,

Hiên tại em có 01 File Data bao gồm (Sheet A, Sheet B, Sheet List)

Em muốn dùng VBA để copy Danh Sách ở Sheet A qua Sheet B (copy nối tiếp vào dòng cuối cùng của sheet B) theo List Điều kiện ở Sheet List (dựa vào cột Key).

Mong cả nhà giúp đỡ, em chân thành cảm ơn ạ..!

 

[huuquy1196]

Đây bạn nhé !

Sub Copy()

Dim i, j, k As Integer
Dim TmpArr, List, Result
TmpArr = Sheet1.Range("A2:F" & Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row).Value
List = Sheet2.Range("A2:A" & Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row).Value

ReDim Result(1 To UBound(TmpArr, 1), 1 To UBound(TmpArr, 2))
    For i = 1 To UBound(List, 1)
        For j = 1 To UBound(TmpArr, 1)
            If List(i, 1) = TmpArr(j, 1) Then
                k = k + 1
                Result(k, 1) = TmpArr(j, 1)
                Result(k, 2) = TmpArr(j, 2)
                Result(k, 3) = TmpArr(j, 3)
                Result(k, 4) = TmpArr(j, 4)
                Result(k, 5) = TmpArr(j, 5)
                Result(k, 6) = TmpArr(j, 6)
            End If
        Next
    Next
Sheet3.Range("A2").Resize(UBound(Result, 1), UBound(Result, 2)).Value = Result


End Sub

 

[Lê Duy Thương]

Thân chào cả nhà GPEX!

mong cả nhà giúp em một việc ạ,

Hiên tại em có 01 File Data bao gồm (Sheet A, Sheet B, Sheet List)

Em muốn dùng VBA để copy Danh Sách ở Sheet A qua Sheet B (copy nối tiếp vào dòng cuối cùng của sheet B) theo List Điều kiện ở Sheet List (dựa vào cột Key).

Mong cả nhà giúp đỡ, em chân thành cảm ơn ạ..!

record macro dùng advance filter sau đó copy vùng dữ liệu đã lọc nối vào sheet B, quá đơn giản đúng không