Code copy dữ liệu Sheet này bỏ vào shet khác theo thứ tự các cột (1 người xem)

[phamhau299]

Mình có 4 sheet
TSCD, Soft ware, Building, Land
Lấy sheet TSCD làm sheet gốc
Mình muốn copy các cột của sheet software, building, land bỏ vào phía dưới các cột tương ứng của sheet TSCD

tscd	B	C	E
Software		A	B	H	J	F
Building		C	A			D
Land		C	A			E

[TD="width: 64"]O[/TD]
[TD="width: 64"]P[/TD]
[TD="width: 64"]v[/TD]

các bạn xem file đính kèm
Dữ liệu trong file rất nhiều, mình gởi những cột cần copy để nhẹ file

 

[Let'GâuGâu]

Mình có 4 sheet
TSCD, Soft ware, Building, Land
Lấy sheet TSCD làm sheet gốc
Mình muốn copy các cột của sheet software, building, land bỏ vào phía dưới các cột tương ứng của sheet TSCD

tscd	B	C	E	O
Software		A	B	H	J	F
Building		C	A			D
Land		C	A			E

[TD="width: 64"]P[/TD]
[TD="width: 64"]v[/TD]

các bạn xem file đính kèm
Dữ liệu trong file rất nhiều, mình gởi những cột cần copy để nhẹ file

chẳng hiểu nổi là làm cái gì???!!!

 

[phamhau299]

ý mình là lấy 1 sheet làm sheet gốc (sheet TSCD) , copy các dữ liệu ở các sheet khác rồi paste vào phía dưới các cột ở sheet gốc
ví dụ sheet "TSCD": cột C là: Tên
sheet "soft ware": cột A là: Tên, mình muốn copy dữ liệu cột A này bỏ vào phía dưới nối tiếp với cột C ở sheet "TSCD" .

 

[MuaBuiRoi]

ý mình là lấy 1 sheet làm sheet gốc (sheet TSCD) , copy các dữ liệu ở các sheet khác rồi paste vào phía dưới các cột ở sheet gốc
ví dụ sheet "TSCD": cột C là: Tên
sheet "soft ware": cột A là: Tên, mình muốn copy dữ liệu cột A này bỏ vào phía dưới nối tiếp với cột C ở sheet "TSCD" .

mô tả kỹ hơn mới ăn thua bạn ơi
tạm tham khảo link này, tự code được khong?
http://www.giaiphapexcel.com/forum/...u-sheet-về-sheet-Tổng-hợp&p=602628#post602628

 

[MuaBuiRoi]

Mình có 4 sheet
TSCD, Soft ware, Building, Land
Lấy sheet TSCD làm sheet gốc
Mình muốn copy các cột của sheet software, building, land bỏ vào phía dưới các cột tương ứng của sheet TSCD
............
các bạn xem file đính kèm...

#

Làm tổng quát thế này, bạn thích mở rộng thêm cột gì sheet gì cũng được

Sub SaoChepCot()
    Application.ScreenUpdating = False
    
    '' Lay gia tri tu sheet Software
    Call copyCols(Array("TSCD", "C", "E", "O", "P", "V"), _
              Array("Software", "A", "B", "H", "I", "F"), _
              "C", "B")
             
    '' Lay gia tri tu sheet Building
    Call copyCols(Array("TSCD", "C", "E", "V"), _
              Array("Building", "C", "A", "D"), _
              "C", "A")
              
    '' Lay gia tri tu sheet Land
    Call copyCols(Array("TSCD", "C", "E", "V"), _
                  Array("Land", "C", "A", "E"), _
                  "C", "A")
End Sub

xem file kèm sẽ rõ

 

[Ba Tê]

Mình có 4 sheet
TSCD, Soft ware, Building, Land
Lấy sheet TSCD làm sheet gốc
Mình muốn copy các cột của sheet software, building, land bỏ vào phía dưới các cột tương ứng của sheet TSCD

tscd	B	C	E	O
Software		A	B	H	J	F
Building		C	A			D
Land		C	A			E

[TD="width: 64"]P[/TD]
[TD="width: 64"]v[/TD]

các bạn xem file đính kèm
Dữ liệu trong file rất nhiều, mình gởi những cột cần copy để nhẹ file

Trong mỗi sheet có dọn sẵn trên dòng 1 các "món tự chọn".
Xin mời "thưởng thức"
Chú ý! Mỗi lần bấm là "dọn thêm 1 bàn ăn", bấm hoài ăn không hết ráng chịu.