Nhờ giúp sắp xếp dữ liệu từ hàng dọc thành hàng ngang theo điều kiện (2 người xem)

[leadlong1422]

Xin chào ace 4rum, e có file dữ liệu hàng nghìn dòng theo hàng dọc . E muốn sắp xếp dữ liệu từ hàng dọc thành hàng ngang theo điều kiện linh hoạt như file đính kèm. Tks tất cả ace

 

[BuiQuangThuan]

cái này là sắp xếp theo cột chứ nhỉ

 

[snow25]

Xin chào ace 4rum, e có file dữ liệu hàng nghìn dòng theo hàng dọc . E muốn sắp xếp dữ liệu từ hàng dọc thành hàng ngang theo điều kiện linh hoạt như file đính kèm. Tks tất cả ace

Thử code.

Sub dsa()
    Const sohang = 4
   Dim a As Long, arr, kq, i As Long, b As Long, lr As Long, socot As Long
   With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A2:A" & lr).Value
        If UBound(arr) Mod sohang = 0 Then
           socot = UBound(arr) \ sohang
        Else
           socot = UBound(arr) \ sohang + 1
        End If
        ReDim kq(1 To sohang, 1 To socot)
        For i = 1 To UBound(arr)
            a = (i - 1) \ socot + 1
            b = (i - 1) Mod socot + 1
            kq(a, b) = arr(i, 1)
        Next i
        .Range("F2").Resize(100, 100).ClearContents
        .Range("f2").Resize(sohang, socot) = kq
   End With
End Sub

 

[leadlong1422]

@snow25 em cảm ơn bác nhiều ah. các dòng code giải quyết bài toán rất đúng ý em. Chúc bác nhiều sức khỏe nhé