Nhờ anh chị chuyển 1 cột (hơn 100000 hàng) thàng 24 hàng như bảng

[lexuanhienkttv]

Nhờ các anh chị giúp, xin cảm ơn nhiều!

 

[befaint]

Nhờ các anh chị giúp, xin cảm ơn nhiều!

24 cột?

 

[be_09]

Nhờ các anh chị giúp, xin cảm ơn nhiều!

Thử cách khác.

 

[be_09]

Nhờ các anh chị giúp, xin cảm ơn nhiều!

Thêm cách dùng hàm.

 

[Ba Tê]

Nhờ các anh chị giúp, xin cảm ơn nhiều!

Nhờ anh chị chuyển 1 cột (hơn 100000 hàng) thàng 24 hàng như bảng

Sao lại thàng 24 hàng?
Phải là thành 24 cột chứ!

Public Sub GPE()
Dim sArr(), I As Long, K As Long, N As Long, Col As Long, Rws As Long
sArr = Range("A2", Range("A2").End(xlDown)).Value
Col = 24
Rws = UBound(sArr): K = 1
ReDim dArr(1 To (Rws \ Col) + 1, 1 To Col)
For I = 1 To Rws
    N = N + 1
    dArr(K, N) = sArr(I, 1)
    If N = Col Then
        N = 0: K = K + 1
    End If
Next I
Range("D3").Resize(K, Col) = dArr
End Sub

 

[lexuanhienkttv]

Xin cảm ơn sự hỗ trợ của các anh, chị nhiều!

 

[lexuanhienkttv]

Nhờ anh chị chuyển 1 cột (hơn 100000 hàng) thàng 24 hàng như bảng

Sao lại thàng 24 hàng?
Phải là thành 24 cột chứ!

Public Sub GPE()
Dim sArr(), I As Long, K As Long, N As Long, Col As Long, Rws As Long
sArr = Range("A2", Range("A2").End(xlDown)).Value
Col = 24
Rws = UBound(sArr): K = 1
ReDim dArr(1 To (Rws \ Col) + 1, 1 To Col)
For I = 1 To Rws
    N = N + 1
    dArr(K, N) = sArr(I, 1)
    If N = Col Then
        N = 0: K = K + 1
    End If
Next I
Range("D3").Resize(K, Col) = dArr
End Sub

Dạ 24 cột, số liệu sắp xếp lần lượt theo hàng