Chỉ xóa cột chẵn

[nguyenkimngoc]

Chào các anh chị

Em có một bảng excel với các cột được đánh thứ tự từ 1 đến 100. bây giờ em chỉ muốn xóa các cột chẵn thui thì làm thế nào nhỉ anh chị. Nếu giữ ctrl thì lâu quá, có anh chị nào biết chỉ giùm em với, cám ơn anh chị nhiều

 

[MinhCong]

Chào các anh chị

Em có một bảng excel với các cột được đánh thứ tự từ 1 đến 100. bây giờ em chỉ muốn xóa các cột chẵn thui thì làm thế nào nhỉ anh chị. Nếu giữ ctrl thì lâu quá, có anh chị nào biết chỉ giùm em với, cám ơn anh chị nhiều

Bạn dùng tạm đoạn code này nhé!

Sub xoacot()
Dim i As Long
  Application.ScreenUpdating = False
    For i = 100 To 2 Step -2
        Columns(i).Delete
    Next
  Application.ScreenUpdating = True
End Sub

 

[dat_butmuc]

Chào các anh chị

Em có một bảng excel với các cột được đánh thứ tự từ 1 đến 100. bây giờ em chỉ muốn xóa các cột chẵn thui thì làm thế nào nhỉ anh chị. Nếu giữ ctrl thì lâu quá, có anh chị nào biết chỉ giùm em với, cám ơn anh chị nhiều

Bắt đầu từ cột đầu tiên (ô bất kỳ không chứa dữ liệu) dùng công thức: =IF(MOD(COLUMN(),2)=1,"") -> Kéo công thức đến cột 100
Nhấn Ctrl+G -> Alt+S (Click vào Formulas - chỉ đánh dấu tích (v) vào Logicals) -> OK
Tiếp theo nhấn Ctrl + dấu trừ "-" rồi nhấn phím C -> OK

 

[nguyenkimngoc]

ANh Dat But Muc ơi, thế nếu muốn xóa các cột lẻ thì công thức phải như thế nào Anh nhỉ?

Em cám ơn anh nhiều

 

[dat_butmuc]

ANh Dat But Muc ơi, thế nếu muốn xóa các cột lẻ thì công thức phải như thế nào Anh nhỉ?

Em cám ơn anh nhiều

Thì thay 1 = 0
thế này: =IF(MOD(COLUMN(),2)=0,"")

 

[MinhCong]

Bạn thay số 1 bằng số 0
=IF(MOD(COLUMN(),2)=0,"")