Help mình tạo 1 vba xóa 1 cột cố định trong nhiều sheet

[songsieuquay]

Tình hình là sếp mình có 1 file excel có rất nhiều sheet.Tự nhiên hôm nay muốn mình làm 1 cái nút hoặc 1 đoạn mã mà nó xóa cố định 1 cột trong tất cả các sheet. Mong các bác giúp e.

E đính kèm theo 1 file test để các bác dễ hiểu. Cột muốn xóa cố định là cột F.

Mong các bác giúp em, e đang cần gấp lắm.

 

[VetMini]

Muốn tìm hiểu code:
Mở record macro lên. Xoá một cột. Đóng macro. Xem lại macro sé thấy code xoá cột.

Thực hiện:
Lập nút, đặt sự kiện click
Đặt vòng lặp:
For i = 1 To Sheets.Count: Sheets(i).Columns("F:F").Delete Shift:=xlToLeft: Next

Yêu cầu kiểu này lỡ tay click vài lần tan nát hết dữ liệu!

 

[songsieuquay]

Tks bạn VetMiMi, nhưng mà mình không rành về mấy cái này lắm bạn có thể làm nháp dùm mình không ^^!.

p/s :Còn mấy cái vụ lỡ tay thì kệ sếp e không biết.

 

[VetMini]

Tks bạn VetMiMi, nhưng mà mình không rành về mấy cái này lắm bạn có thể làm nháp dùm mình không ^^!.

p/s :Còn mấy cái vụ lỡ tay thì kệ sếp e không biết.

Xin trả lời thẳng: không!

 

[Tranhoe]

Tks bạn VetMiMi, nhưng mà mình không rành về mấy cái này lắm bạn có thể làm nháp dùm mình không ^^!.

p/s :Còn mấy cái vụ lỡ tay thì kệ sếp e không biết.

Tôi làm trong file, Nhấn nút "Xoa Cột" sẽ như ý (kể cả các Sheets ẩn). Bạn thử xem: