Sub Vba copy dữ liệu từ sheet1 sang sheet 2 giữ nguyên định dạng

[tranhoainam9701]

Xin chào các Anh / Chị trên diễn đàn.
Mong Anh / Chị viết giúp một đoạn mã VBA copy giữa 2 sheet vẫn giữ nguyên định dạng gốc
Xin cám ơn Anh / Chị trước ạ!
Trân trọng/

 

[BuiQuangThuan]

Xin chào các Anh / Chị trên diễn đàn.
Mong Anh / Chị viết giúp một đoạn mã VBA copy giữa 2 sheet vẫn giữ nguyên định dạng gốc
Xin cám ơn Anh / Chị trước ạ!
Trân trọng/

Thử nó.................

Sub aBC()
Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
End Sub

 

[Phuocam]

Sub XYZ()

Sheet1.Range("A1").CurrentRegion.Copy
Sheet2.Range("A1").PasteSpecial (xlPasteColumnWidths)
Sheet2.Range("A1").PasteSpecial (xlPasteAll)
End Sub

Cột A có độ rộng bằng cột A sheet gốc:

 

[VetMini]

Theo nguyên tắc cho con cá hay cần câu. Loại bài toán này quý vị chỉ cần mách cho cách thâu macro.

 

[tranhoainam9701]

Thử nó.................

Sub aBC()
Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
End Sub

Cám ơn Bùi Quang Thuận nhiều nhé!

Bài đã được tự động gộp: 12/3/22

Sub XYZ()

Sheet1.Range("A1").CurrentRegion.Copy
Sheet2.Range("A1").PasteSpecial (xlPasteColumnWidths)
Sheet2.Range("A1").PasteSpecial (xlPasteAll)
End Sub

Cột A có độ rộng bằng cột A sheet gốc:

Em Cám ơn Anh nhiều ạ!