Ghép nhiều cột thành một cột (2 người xem)

empty13 · 29/3/20

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 · 30/3/20

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

PHP:

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 · 30/3/20

SA_DQ đã viết:

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

PHP:

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 · 31/3/20

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 · 31/3/20

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 · 31/3/20

SA_DQ đã viết:
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 · 31/3/20

hunglam123 đã viết:
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

PHP:

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 · 31/3/20

hunglam123 đã viết:
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.

Chi bốn đã viế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 · 8/4/20

be09 đã viết:
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 · 9/4/20

phanlearning đã viết:
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 · 6/6/21

SA_DQ đã viết:

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

PHP:

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 · 6/6/21

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 · 6/6/21

SA_DQ đã viết:
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 · 6/6/21

Duchuy2821 đã viết:
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 · 6/6/21

HieuCD đã viết:
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 · 6/6/21

Duchuy2821 đã viết:
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 · 6/6/21

HUONGLIEN6577 đã viết:
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 · 6/6/21

Duchuy2821 đã viết:
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 · 6/6/21

Hoàng Tuấn 868 đã viết:
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 · 6/6/21

Duchuy2821 đã viết:
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.

Ghép nhiều cột thành một cột (2 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

/(hông là gì!

Thành viên mới

Thành viên mới

/(hông là gì!

Thành viên bị đình chỉ hoạt động

File đính kèm

Thành viên mới

Biên Hòa, Đồng Nai

File đính kèm

Thành viên mới

Biên Hòa, Đồng Nai

Thành viên mới

/(hông là gì!

Thành viên mới

Chuyên gia GPE

Thành viên mới

Thành viên chính thức

File đính kèm

Thành viên mới

Đăng ký hôm qua

Thành viên mới

Đăng ký hôm qua

Đếm ngược thời gian