[VBA] Chia Data theo điều kiện cho 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 02 Sheet (Data và Name)

Em muốn dùng VBA để khi input điều kiện ở cột A (sheet Name) và tương đương với số lượng (Sheet name) khi nhấn chạy nó sẽ tự input Name từ "Sheet Name" qua cột E của "Sheet Data " (từ trên xuống theo số lượng đã input sẵn).

Em có làm kết quả ở File đính kèm ạ, Mong cả nhà giúp đỡ, em chân thành cảm ơn ạ.

 

[giaiphap]

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 02 Sheet (Data và Name)

Em muốn dùng VBA để khi input điều kiện ở cột A (sheet Name) và tương đương với số lượng (Sheet name) khi nhấn chạy nó sẽ tự input Name từ "Sheet Name" qua cột E của "Sheet Data " (từ trên xuống theo số lượng đã input sẵn).

Em có làm kết quả ở File đính kèm ạ, Mong cả nhà giúp đỡ, em chân thành cảm ơn ạ.

Dùng code này cho sheet Data.

Private Sub Worksheet_Activate()
    Dim Arr, i As Integer, jCount As Long
    Arr = Sheet2.Range("A5:B" & Sheet2.Range("B1000000").End(xlUp).Row).Value
    With Sheet8
        .Range("E2:E" & .Range("E1000000").End(xlUp).Row + 2).Clear
        jCount = 1
        For i = 1 To UBound(Arr)
            .Range("E1").Offset(jCount).Resize(Arr(i, 2)) = Arr(i, 1)
            jCount = jCount + Arr(i, 2)
        Next i
    End With
End Sub