Nhờ hỗ trợ copy dữ liệu theo số lượng hàng ngang trong xls thành nhiều cột (1 người xem)

[doivui14000]

Hiện tại em có ở cột c số lượng các số từ 1 đến 2000.
GIờ muốn copy cột C chia sang các cột D, E... mỗi cột 100 cho đến hết nhờ các bác chỉ dùm. Thanks
Vd trong file đính kèm

 

[phulien1902]

Hiện tại em có ở cột c số lượng các số từ 1 đến 2000.
GIờ muốn copy cột C chia sang các cột D, E... mỗi cột 100 cho đến hết nhờ các bác chỉ dùm. Thanks
Vd trong file đính kèm

Bạn thử với:

Sub ChiaCot()
    Dim a, y(), i&, j&, k&
    a = Range("C1", Cells(Rows.Count, 3).End(3)).Value
    ReDim y(1 To 1000, 1 To UBound(a))
    For i = 1 To UBound(a)
        j = IIf(j >= 100, 1, j + 1)
        If j = 1 Then k = k + 1
        y(j, k) = a(i, 1)
    Next i
    Range("D1:AE1").Resize(k + 99).Value = y()
End Sub

 

[doivui14000]

Cám ơn bạn nhiều nha.

Bạn thử với:

Sub ChiaCot()
    Dim a, y(), i&, j&, k&
    a = Range("C1", Cells(Rows.Count, 3).End(3)).Value
    ReDim y(1 To 1000, 1 To UBound(a))
    For i = 1 To UBound(a)
        j = IIf(j >= 100, 1, j + 1)
        If j = 1 Then k = k + 1
        y(j, k) = a(i, 1)
    Next i
    Range("D1:AE1").Resize(k + 99).Value = y()
End Sub