Marco xóa cột? (1 người xem)

[311280]

Nhờ các bác viết giùm Marco xóa cột, yêu cầu mình ghi trong file đính kèm.
Chân thành cảm ơn trước.

 

[phulien1902]

Nhờ các bác viết giùm Marco xóa cột, yêu cầu mình ghi trong file đính kèm.
Chân thành cảm ơn trước.

Bạn thử:

 Sub DelCot()
    Sheets("Strip Forces").Range("A:A,C:C,D:D,E:E,F:F,G:G,H:H,K:K,M:M").EntireColumn.Delete
End Sub

 

[giangleloi]

Nhờ các bác viết giùm Marco xóa cột, yêu cầu mình ghi trong file đính kèm.
Chân thành cảm ơn trước.

Record Macro sẽ có ngay mà. Sao không xài cái nào thì lấy ra. Xoá chi cho uổng.

Sub GPE()
Range("A:A,C:C,D:D,E:E,F:F,G:G,H:H,K:K,L:L,M:M").Delete
End Sub

Bởi xoá không có điều kiện gì lỡ vô tình bấm 2 lần là đi tong hết.

 

[311280]

Bởi xoá không có điều kiện gì lỡ vô tình bấm 2 lần là đi tong hết.

Bác thêm giùm mình nếu cột D trống thì không thực hiện code, lúc đó lỡ bấm 2 lần thì không bị mất dữ liệu. Cảm ơn bác trước.

 

[giangleloi]

Bác thêm giùm mình nếu cột D trống thì không thực hiện code, lúc đó lỡ bấm 2 lần thì không bị mất dữ liệu. Cảm ơn bác trước.

Thử thế này xem được chưa:

Sub GPE()
If Range("D" & Rows.Count).End(3).Row = 1 Then Exit Sub
Range("A:A,C:C,D:D,E:E,F:F,G:G,H:H,K:K,L:L,M:M").Delete
End Sub