Hỏi Nhờ các bạn viết hộ Macro để lấy Copy vùng dữ liệu.

[thivantan]

Mình muốn nhờ các bạn dùng VBA để copy chọn lọc các cột từ sheet này sang sheet kia để tăng năng suất trong công việc, mình đã thử dùng:
.....
Sheets("Sheet2").Select
k=[A65500].End(xlUp).Row
Columns("A:A"&k).Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste


Sheets("Sheet2").Select
k=[C65500].End(xlUp).Row
Columns("C:C"&k).Select
Selection.Copy
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste
..............
Nhưng dài quá mình muốn nhờ các bạn sửa lại dùm, nếu có MSGBOXT để chọn các cột muốn copy thì tốt quá. Xin cảm ơn và mong các bạn giúp.

 

[ChanhTQ@]

Bạn dùng macro này & cho ý kiến

trước Khi chạy macro, ta phải chọn trang tính cần copy, khi thấy xuất hiện hộp thoại, bạn bấm chuột vô ô bất kỳ có dữ liệu trong cột bất kỳ nào mà bạn muốn copy;
Sau đó macro sẽ Copy nguyên cột dữ liệu đó đem sang sheet3, dán vô đúng cột đó luôn.

Nếu bạn còn muốn macro sẽ phải hỏi bạn cần dán cột đó đến sheet nào thì thêm 1 khai báo biến chuỗi & thêm 1 vài câu lệnh nữa

Sub CopyColumn()
 Dim Rng As Range
 
 Set Rng = Application.InputBox("HAY CHON 1 O TRONG COT:", Type:=8)
 Set Rng = Range(Cells(1, Rng.Column), Cells(65500, Rng.Column).End(xlUp))
 Rng.Copy Destination:=Sheets("Sheet3").Cells(1, Rng.Column)
  
End Sub

 

[ndu96081631]

Mình muốn nhờ các bạn dùng VBA để copy chọn lọc các cột từ sheet này sang sheet kia để tăng năng suất trong công việc, mình đã thử dùng:
.....
Sheets("Sheet2").Select
k=[A65500].End(xlUp).Row
Columns("A:A"&k).Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste


Sheets("Sheet2").Select
k=[C65500].End(xlUp).Row
Columns("C:C"&k).Select
Selection.Copy
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste
..............
Nhưng dài quá mình muốn nhờ các bạn sửa lại dùm, nếu có MSGBOXT để chọn các cột muốn copy thì tốt quá. Xin cảm ơn và mong các bạn giúp.

Sửa lại 1 đoạn:

Sub Test()
  With Range(Sheet2.[A1], Sheet2.[A65536].End(xlUp))
    Sheet1.Range("A1").Resize(.Rows.Count).Value = .Value
  End With
End Sub

Đoạn còn lại tương tự

 

[thivantan]

Với yêu cầu của tôi, các bạn đã giúp đỡ và tôi đã làm được! Là thành viên mới, kiến thức còn ít, tôi còn nhờ các bạn giúp đỡ nhiều. Xin cảm ơn các bạn rất nhiều. Thân