Gửi bởi
mangia
Chào mọi người
Mình có 1 vấn đề sau mong mọi người giúp đỡ
mình có 1 bảng kích thước như sau : cột x hàng = n x 50 (ví dụ như file đính kèm)
trong mỗi cột có 1~5 ô có số liệu và không cố định trong cột
mình muốn dồn các ô có dữ liệu lên đầu cột mà không biết làm thế nào
mình thử dùng lệnh sort nhưng chỉ xử lý 1 cột 1 lần nên rất lâu
vậy ai biết chỉ mình với
Rất mong được giúp đỡ
Dùng thử code này xem sao
Mã nguồn PHP:
Public Sub Sap_Xep()Dim DL, KQ, d As Long, c As Long, i As Long, j As LongDL = Sheet1.Range("A1", Sheet1.Range("F1000000").End(xlUp))ReDim KQ(1 To UBound(DL), 1 To UBound(DL, 2))Sheet1.Range("H1", "M" & Sheet1.Range("F1000000").End(xlUp).Row).ClearFor c = 1 To UBound(KQ, 2)i = 0For d = 1 To UBound(KQ)If DL(d, c) <> "-" Theni = i + 1KQ(i, c) = DL(d, c)End IfNext dIf j < i Thenj = iEnd IfNext cSheet1.Range("H1").Resize(j, UBound(KQ, 2)).Value = KQEnd Sub
Trả lời kèm Trích dẫn
