Xin công thức gộp, copy nhiều cột thành một cột.

[dung96bg]

Em chào Anh Chị,
Anh/ chị cho e hỏi có hàm hay pivot.. gì mà có thể copy dữ liệu các cột sang một cột không ạ.
Ví dụ em muốn gộp các cột D,E,F; G,H,I trong sheet 1 vào cột A,B,C tương ứng trong sheet bên cạnh.
Em cảm ơn ạ.

 

[Vũ Hiệp SP]

Đây nha bạn. chạy bằng macro là được

 

[dung96bg]

Đây nha bạn. chạy bằng macro là được

Vang em cảm ơn a nhiều ạ, ví dụ em muốn lấy thêm các mã chi phí 4,5 hay sau này phát sinh thêm nữa, a có thể cho em xin code VBA để thao khảo với ạ.

 

[Vũ Hiệp SP]

Sub Getdata()
'
' Getdata Macro
'

'
Sheets("Sheet1").Select
Range("Table1[[#Headers],[MCP1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Ty Le 1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Tien 1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[MCP2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
Selection.End(xlDown).Select
Range("A228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Ty le 2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("B1").Select
Selection.End(xlDown).Select
Range("B228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Tien 2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Application.CommandBars("Accessibility").Visible = False
Range("C1").Select
Selection.End(xlDown).Select
Range("C228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Đây nha b ơi, tuy nhiên sheet bên cạnh mình để là baocao( k dấu ) các tieu đề từ cột D đến cột I cũng cần phải không dấu mới được nha b

 

[dung96bg]

Sub Getdata()
'
' Getdata Macro
'

'
Sheets("Sheet1").Select
Range("Table1[[#Headers],[MCP1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Ty Le 1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Tien 1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[MCP2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
Selection.End(xlDown).Select
Range("A228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Ty le 2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("B1").Select
Selection.End(xlDown).Select
Range("B228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Tien 2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Application.CommandBars("Accessibility").Visible = False
Range("C1").Select
Selection.End(xlDown).Select
Range("C228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Đây nha b ơi, tuy nhiên sheet bên cạnh mình để là baocao( k dấu ) các tieu đề từ cột D đến cột I cũng cần phải không dấu mới được nha b

Qua a bảo dùng marco nên em cũng tìm và hiểu thêm chút, tuy nhiên dữ liệu của e thay đổi theo tháng, ko cố định 228 dòng nữa thì mình dùng vòng lặp như nào ạ, nếu viết cố định như kia khi e thử xóa bớt dòng đi nó sẽ lỗi, mong anh chỉ bảo thêm giúp em với.

 

[Vũ Hiệp SP]

Mình test dù có ít dòng nó không lỗi vẫn chạy nhưng những dòng đó nó trắng thôi. mình sửa lại rồi bạn chạy thử như này nha.
Sub Getdata()
'
' Getdata Macro
'

'
Sheets("Sheet1").Select
Range("Table1[[#Headers],[MCP1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Ty Le 1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Tien 1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[MCP2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Ty le 2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("B1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Tien 2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Application.CommandBars("Accessibility").Visible = False
Range("C1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Nhưng nhớ để đúng sheet và tiêu đề như này nha hoặc bạn sửa lại cả đoạn code theo tên và sheet bạn muốn nhưng mà nhớ không dấu là được nhé.

Bài đã được tự động gộp: 27/5/23

À lưu ý là bên sheet 1 cũng bắt buộc cho vào table nha. k là k lấy đủ dữ liệu đâu

 

[BuiQuangThuan]

Bạn viết mẫu kết quả của MCP1 đầy đủ xem thế nào rồi mình sẽ code cho bạn.
Và là kết quả cuối cùng bạn mong muốn ấy
Nhắc nhẹ là bạn đừng viết tắt trong bài viết

 

[Hoàng Tuấn 868]

Bạn viết mẫu kết quả của MCP1 đầy đủ xem thế nào rồi mình sẽ code cho bạn.
Và là kết quả cuối cùng bạn mong muốn ấy
Nhắc nhẹ là bạn đừng viết tắt trong bài viết

Code két gì nhỉ, đây là chuyên mục "Hàm và công thức Excel" mà.

 

[dung96bg]

Bạn viết mẫu kết quả của MCP1 đầy đủ xem thế nào rồi mình sẽ code cho bạn.
Và là kết quả cuối cùng bạn mong muốn ấy
Nhắc nhẹ là bạn đừng viết tắt trong bài viết

Vâng anh, đề bài của em đơn giản chỉ là copy cột D,E,F và cột G,H,I ở sheet 1 sang cột A,B,C ở sheet cần gộp thôi ạ, các cột tương tự em có thể xem code và làm theo cũng được. Nhưng lưu ý là không được ghi đè dữ liệu ở cột A,B,C sheet cần gộp. Sheet 1 của em có thể thay đổi dòng hàng theo từng tháng, nên ở sheet cần gộp cũng cần được cập nhật theo. Em cảm ơn ạ.

Bài đã được tự động gộp: 27/5/23

Mình test dù có ít dòng nó không lỗi vẫn chạy nhưng những dòng đó nó trắng thôi. mình sửa lại rồi bạn chạy thử như này nha.
Sub Getdata()
'
' Getdata Macro
'

'
Sheets("Sheet1").Select
Range("Table1[[#Headers],[MCP1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Ty Le 1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Tien 1]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[MCP2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Ty le 2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Range("B1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("Table1[[#Headers],[Tien 2]]").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Baocao").Select
Application.CommandBars("Accessibility").Visible = False
Range("C1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Nhưng nhớ để đúng sheet và tiêu đề như này nha hoặc bạn sửa lại cả đoạn code theo tên và sheet bạn muốn nhưng mà nhớ không dấu là được nhé.

Bài đã được tự động gộp: 27/5/23

À lưu ý là bên sheet 1 cũng bắt buộc cho vào table nha. k là k lấy đủ dữ liệu đâu

anh có thể cho em xin file được không ạ, em copy ném vào nó chạy bị lỗi.

 

[Vũ Hiệp SP]

Đây, b check lại xem có lưu đúng file dưới dạng bật macro không mà file b lại lỗi

 

[dung96bg]

Đây, b check lại xem có lưu đúng file dưới dạng bật macro không mà file b lại lỗi

Em cảm ơn bác ạ, em tạo thêm dòng phụ và đã làm thành công rồi. Cảm ơn mọi người đã giúp đỡ ạ.