Sắp xếp lại dữ liệu (1 người xem)

[soulme]

Mình có một bảng dữ liệu được sắp xếp như sau

Nhờ GPE giúp mình xếp các dữ liệu lại trên một sheet mới với định dạng như sau:

Mình làm thủ công bằng cách copy từng dòng và paste special + transpose để dữ liệu từ hàng chuyển thành cột. Nhưng với số lượng lớn thì khá mất thời gian. Không biết có cách nào nhanh hơn không? Mình gửi kèm theo file. Mong mọi người chỉ giúp.

 

[hungpecc1]

Mình có một bảng dữ liệu được sắp xếp như sau
View attachment 139823
Nhờ GPE giúp mình xếp các dữ liệu lại trên một sheet mới với định dạng như sau:
View attachment 139824
Mình làm thủ công bằng cách copy từng dòng và paste special + transpose để dữ liệu từ hàng chuyển thành cột. Nhưng với số lượng lớn thì khá mất thời gian. Không biết có cách nào nhanh hơn không? Mình gửi kèm theo file. Mong mọi người chỉ giúp.

Miêu tả thứ tự sắp xếp hay quy luật cụ thể hơn được không ?

 

[soulme]

Sắp xếp dòng từ A2 đến F2 thành 1 cột , sau đó cách 1 dòng rồi A3 tới F3 thành 1 cột cứ vậy cho tới hết. Ví dụ như hình 2 đó bạn.

 

[Ba Tê]

Sắp xếp dòng từ A2 đến F2 thành 1 cột , sau đó cách 1 dòng rồi A3 tới F3 thành 1 cột cứ vậy cho tới hết. Ví dụ như hình 2 đó bạn.

Thử chạy Sub này xem sao.

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, K As Long
sArr = Range([A2], [A2].End(xlDown)).Resize(, 6).Value
ReDim dArr(1 To UBound(sArr, 1) * 7, 1 To 1)
For I = 1 To UBound(sArr, 1)
    For J = 1 To 6
        K = K + 1
        dArr(K, 1) = sArr(I, J)
    Next J
    K = K + 1
Next I
[H2].Resize(K) = dArr
End Sub

 

[soulme]

Mình cảm ơn bạn rất nhiều . Hơi tham lam một chú là ngoài dùng VBA thì còn cách nào khác không bạn nhỉ ?

 

[Let'GâuGâu]

Mình cảm ơn bạn rất nhiều . Hơi tham lam một chú là ngoài dùng VBA thì còn cách nào khác không bạn nhỉ ?

thử xem đúng ý bạn ko

H2=OFFSET($A$2,INT((ROW()-2)/7),MOD(ROW()-2,7))

 

[soulme]

Mình làm được rồi. Cảm ơn các bạn đã giúp nhiệt tình