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

Quảng cáo

Yugi_Nguyễn

Thành viên mới
Tham gia ngày
23 Tháng năm 2019
Bài viết
17
Được thích
1
Điểm
103
Tuổi
27
Nơi ở
Tiên Nội _ Duy Tiên _ Hà 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

CHAOQUAY

Thành viên tích cực
Tham gia ngày
24 Tháng tám 2018
Bài viết
1,385
Được thích
1,506
Điểm
668
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
 
Quảng cáo
Top Bottom