Em nhờ các Anh/Chị sửa giúp em đoạn code trong file (1 người xem)

[Yugi_Nguyễn]

Trong file em có 1 tổ hợp các cột dữ liệu và mục đích em muốn copy toàn bộ các cột dữ liệu đó vào 1 cột nhưng trong cột được copy sẽ không có Ô trắng
Nhờ các anh/chị sửa code giúp em với ạ
Em cảm ơn

 

[CHAOQUAY]

Trong file em có 1 tổ hợp các cột dữ liệu và mục đích em muốn copy toàn bộ các cột dữ liệu đó vào 1 cột nhưng trong cột được copy sẽ không có Ô trắng
Nhờ các anh/chị sửa code giúp em với ạ
Em cảm ơn

Bạn thử code dưới đây

Option Explicit

Sub ghep()
Dim Nguon
Dim Kq
Dim rws, cls
Dim i, j, k
With Sheet1
    Nguon = .Range("A1").CurrentRegion
    rws = UBound(Nguon)
    cls = UBound(Nguon, 2)
    ReDim Kq(1 To rws * cls, 1 To 1)
    For j = 1 To cls
        For i = 1 To rws
            If Nguon(i, j) <> "" Then
                k = k + 1
                Kq(k, 1) = Nguon(i, j)
            End If
        Next i
    Next j
    .Range("A20").Resize(k, 1) = Kq
End With
End Sub

 

[Yugi_Nguyễn]

Mình dùng được rồi cảm ơn nhé