Em nhờ các Anh/Chị sửa giúp em đoạn code trong file

Liên hệ QC

Yugi_Nguyễn

Thành viên mới
Tham gia
23/5/19
Bài viết
32
Được thích
1
Giới tính
Nam
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
 

File đính kèm

  • ghep cot.xlsx
    54 KB · Đọc: 6
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
Mã:
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
 
Web KT
Back
Top Bottom