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

[congthanh6868]

Chào các bạn,
Trong file đính kèm mình muốn sắp xếp lại dữ liệu trong bảng từ B2:K17 thành dữ liệu như trong bảng từ M2:V17.
Mong nhận được giúp đỡ.
Cám ơn các bạn nhiều.

 

[Quang_Hải]

Chào các bạn,
Trong file đính kèm mình muốn sắp xếp lại dữ liệu trong bảng từ B2:K17 thành dữ liệu như trong bảng từ M2:V17.
Mong nhận được giúp đỡ.
Cám ơn các bạn nhiều.

Yêu cầu của bạn mình có thể xử bằng code này, công thức thì chịu thua

Sub sapxep()
Dim dl(), kq(), i, j, k
dl = Range([A2], [A65536].End(3)).Offset(, 1).Resize(, 10).Value
ReDim kq(1 To UBound(dl), 1 To 10)
For i = 1 To 10
   For j = 1 To UBound(dl)
      If dl(j, i) <> "" Then
         k = k + 1
         kq(k, i) = dl(j, i)
      End If
   Next
   k = 0
Next
Range([A2], [A65536].End(3)).Offset(, 1).Resize(, 10).NumberFormat = "@"
[b2].Resize(UBound(dl), 10) = kq
End Sub

 

[congthanh6868]

Yêu cầu của bạn mình có thể xử bằng code này, công thức thì chịu thua

Sub sapxep()
Dim dl(), kq(), i, j, k
dl = Range([A2], [A65536].End(3)).Offset(, 1).Resize(, 10).Value
ReDim kq(1 To UBound(dl), 1 To 10)
For i = 1 To 10
   For j = 1 To UBound(dl)
      If dl(j, i) <> "" Then
         k = k + 1
         kq(k, i) = dl(j, i)
      End If
   Next
   k = 0
Next
Range([A2], [A65536].End(3)).Offset(, 1).Resize(, 10).NumberFormat = "@"
[b2].Resize(UBound(dl), 10) = kq
End Sub

Cám ơn bạn.

Bạn nào có thể giúp mình bằng phương pháp dùng công thức thì tốt quá.
Cám ơn các bạn nhiều.

 

[dongducnhiem]

Chào các bạn,
Trong file đính kèm mình muốn sắp xếp lại dữ liệu trong bảng từ B2:K17 thành dữ liệu như trong bảng từ M2:V17.
Mong nhận được giúp đỡ.
Cám ơn các bạn nhiều.

Bạn thử áp dụng Cthức của bài này
Ðề tài: [URL="http://www.giaiphapexcel.com/forum/showthread.php?46896-Loại-bỏ-các-ô-trống-và-xắp-xếp-lại-dữ-liệu-!"]Loại bỏ các ô trống và xắp xếp lại dữ liệu?![/URL]