Gọi tên để chuẩn bị thực hiện action:
- Gọi tên file: Windows("ABCD.xlsx").Activate
- Gọi sheet :Sheets("DEF").Select
- Gọi vùng: Range("A3:CR1000").Select
Action thông dụng:
- Xoá vùng dữ liệu được chọn:Selection.ClearContents
- Copy vùng dữ liệu được chọn :Selection.Copy
- Chỉ chọn vùng dữ liệu hiển thị (không chọn dòng ẩn): Selection.SpecialCells(xlCellTypeVisible).Select
- Sau khi chọn nơi để Paste, action copy, Paste vùng dữ liệu được chọn lên ô đã chọn : ActiveSheet.Paste
- Sau khi copy, Paste Value lên nơi đã chọn: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
- Ẩn các cột từ D đến L:
Selection.EntireColumn.Hidden = True
- Đi đến dòng trống kế tiếp ở cột D
Selection.End(xlDown).Select
ActiveCell.Offset(1, -1).Select
Nhận xét
Đăng nhận xét