Ghép nhiều cột thành một cột

[empty13]

Kính chào các bác, em đang gặp một vấn đề như sau:
cột A có các giá trị 1 2 3, cột B có các giá trị 4 5 6. Bây giờ em muốn ghép lại thành một cột 1 2 3 4 5 6 thì làm như thế nàoạ?
File dữ liệu của em có 420 cột và 11 dòng ạ.
Em cám ơn các bác

 

[SA_DQ]

& đây, xin mời bạn thử:

Sub GhepNhieuCotThanh01()
Dim Dg As Long, Cot As Integer, Col As Integer, J As Long, Rws As Long, W As Long

Dg = [B2].CurrentRegion.Rows.Count:    Cot = [B2].CurrentRegion.Columns.Count
ReDim Arr(1 To Dg * Cot + 9, 1 To 1)
For Col = 1 To Cot
    For J = 1 To Dg
        W = W + 1:                          Arr(W, 1) = Cells(J, Col).Value
    Next J
Next Col
Sheet2.[B1].Resize(W).Value = Arr()
End Sub

 

[empty13]

& đây, xin mời bạn thử:

Sub GhepNhieuCotThanh01()
Dim Dg As Long, Cot As Integer, Col As Integer, J As Long, Rws As Long, W As Long

Dg = [B2].CurrentRegion.Rows.Count:    Cot = [B2].CurrentRegion.Columns.Count
ReDim Arr(1 To Dg * Cot + 9, 1 To 1)
For Col = 1 To Cot
    For J = 1 To Dg
        W = W + 1:                          Arr(W, 1) = Cells(J, Col).Value
    Next J
Next Col
Sheet2.[B1].Resize(W).Value = Arr()
End Sub

dạ vâng em cám ơn, em đã làm theo được ạ <3

 

[Chi bốn]

MÌnh muốn ghép nhiều cột thành 1 cột, nhưng cột của mình có số dòng khác nhau thì làm thế nào ạ? Mn chỉ giúp mình với. Mình có tham khảo File Ghép cột kia nhưng chỉ ghép được các cột có số dòng bằng nhau sao ấy.

Cảm ơn mn nhiều!

 

[SA_DQ]

Thì bạn cứ đưa file giả lập lên & nếu cần nên ghi những yêu cầu của bạn.

 

[hunglam123]

Thì bạn cứ đưa file giả lập lên & nếu cần nên ghi những yêu cầu của bạn.

sẳng thầy chỉ cách ghép khi dữ liệu dòng khác nhau

 

[PacificPR]

sẳng thầy chỉ cách ghép khi dữ liệu dòng khác nhau
View attachment 234400

Bạn thử cái này xem

Sub Ghepcot()
    Dim dongdau As Long, dongcuoi As Long, J As Long
    Dim rng As Range
Application.ScreenUpdating = False
With Sheet1
    For J = 1 To 5
        dongcuoi = .Cells(Rows.Count, J).End(xlUp).Row
        dongdau = .Cells(dongcuoi, J).End(xlUp).Row
        Set rng = .Range(Cells(dongdau, J), Cells(dongcuoi, J))      
        rng.Copy
        .Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
    Next J
    Application.CutCopyMode = False
    .Range("H" & Rows.Count).End(xlUp).Select
End With
Application.ScreenUpdating = True
End Sub

 

[be_09]

sẳng thầy chỉ cách ghép khi dữ liệu dòng khác nhau

Tôi đưa kết quả sang sheet2 cho thuận tiện việc bổ sung cột.

MÌnh muốn ghép nhiều cột thành 1 cột, nhưng cột của mình có số dòng khác nhau thì làm thế nào ạ? Mn chỉ giúp mình với. Mình có tham khảo File Ghép cột kia nhưng chỉ ghép được các cột có số dòng bằng nhau sao ấy.

Cảm ơn mn nhiều!

Lấy File bài 8 dùng thử.

 

[phanlearning]

Tôi đưa kết quả sang sheet2 cho thuận tiện việc bổ sung cột.


Lấy File bài 8 dùng thử.

Bác làm thế nào mà hay thế
Cho em cái code đi

 

[be_09]

Bác làm thế nào mà hay thế
Cho em cái code đi

Mở File đó ra nhấn Alt+F11 thì thấy code.

 

[princesun]

& đây, xin mời bạn thử:

Sub GhepNhieuCotThanh01()
Dim Dg As Long, Cot As Integer, Col As Integer, J As Long, Rws As Long, W As Long

Dg = [B2].CurrentRegion.Rows.Count:    Cot = [B2].CurrentRegion.Columns.Count
ReDim Arr(1 To Dg * Cot + 9, 1 To 1)
For Col = 1 To Cot
    For J = 1 To Dg
        W = W + 1:                          Arr(W, 1) = Cells(J, Col).Value
    Next J
Next Col
Sheet2.[B1].Resize(W).Value = Arr()
End Sub

bác làm ơn cho hỏi đưa cái modun kia vào thì dùng công thức j để chạy với ạ

 

[SA_DQ]

Thứ nhất: Đó không phải là 1 hàm người dùng (UDF) nên sẽ không có công thức;
Muốn cho 1 macro chạy thì có vài cách sau:
(*) Gán cho macro 1 tổ hợp phím tắt, như {CTRL}+{SHIFT}+G
(*) Vẻ lên trang tính 1 hình (Shapes trong menu Insert) nào đó & liên kết với tên macro để khi bấm vô hình đó thì macro sẽ chạy & đưa ra kết quả cho bạn
(*) . . . . .

Chúc bạn thành công!

 

[Duchuy2821]

Thứ nhất: Đó không phải là 1 hàm người dùng (UDF) nên sẽ không có công thức;
Muốn cho 1 macro chạy thì có vài cách sau:
(*) Gán cho macro 1 tổ hợp phím tắt, như {CTRL}+{SHIFT}+G
(*) Vẻ lên trang tính 1 hình (Shapes trong menu Insert) nào đó & liên kết với tên macro để khi bấm vô hình đó thì macro sẽ chạy & đưa ra kết quả cho bạn
(*) . . . . .

Chúc bạn thành công!

Bác ơi bác giúp em với ạ
Em gặp vấn đề như sau:
Cột A: 1 4 7
Cột B: 2 5 8
Cột C: 3 6 9
Ghép thành một cột theo dạng sau:
1
2
3
4
5
6
7
8
9

 

[HieuCD]

Bác ơi bác giúp em với ạ
Em gặp vấn đề như sau:
Cột A: 1 4 7
Cột B: 2 5 8
Cột C: 3 6 9
Ghép thành một cột theo dạng sau:
1
2
3
4
5
6
7
8
9
View attachment 260144

Copy và dán 3 lần rất nhanh và đơn giản

 

[Duchuy2821]

Copy và dán 3 lần rất nhanh và đơn giản

Mình ví dụ thôi ạ, chứ dữ liệu tầm 400 500 dòng copy paste tay to luôn bác ạ

 

[HUONGLIEN6577]

Bác ơi bác giúp em với ạ
Em gặp vấn đề như sau:
Cột A: 1 4 7
Cột B: 2 5 8
Cột C: 3 6 9
Ghép thành một cột

Góp thêm một cách cho bạn lựa chọn.

 

[Duchuy2821]

Góp thêm một cách cho bạn lựa chọn.

em cảm ơn nhiều lắm ạ

 

[Hoàng Tuấn 868]

Mình ví dụ thôi ạ, chứ dữ liệu tầm 400 500 dòng copy paste tay to luôn bác ạ

Bốn năm trăm dòng thì chỉ công thức cũng đủ dùng, chắc chưa cần đến VBA.

 

[Duchuy2821]

Bốn năm trăm dòng thì chỉ công thức cũng đủ dùng, chắc chưa cần đến VBA.

dạ em dở excel nên lên nhờ các cao nhân ạ

 

[Hoàng Tuấn 868]

dạ em dở excel nên lên nhờ các cao nhân ạ

Bạn bỏ chữ cao nhân đi và gửi file lên mình sẽ giúp bạn vì mình không phải là cao nhân.