【Excel VBA】快速刪除奇數欄

內容目錄

VBA快速刪除奇數欄

當Excel想批次刪除奇數欄時，需要用「輔助欄」來完成，那如何使用VBA快速刪除奇數欄呢？

輸入巨集

方法一符合奇數欄刪除

Sub 刪除奇數欄()
欄 = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 欄 To 1 Step -1
If i Mod 2 = 1 Then
Columns(i).Delete
End If
Next
End Sub

方法二找到奇數欄跳欄刪除

Sub 刪除奇數欄()
欄 = Cells(1, Columns.Count).End(xlToLeft).Column
If 欄 Mod 2 = 0 Then 欄 = 欄 – 1
For i = 欄 To 1 Step -2
Columns(i).Delete
Next i
End Sub

語法說明

欄 = Cells(1, Columns.Count).End(xlToLeft).Column
‘計算出最大欄數後，再移動到左方有資料所在的欄數，則為最後一欄的欄數
For i = 欄 To 1 Step -1
‘最後一欄依序減1到第一欄，進行迴圈操作
If i Mod 2 = 1 Then Columns(i).Delete
‘如果欄數除2餘數為1時，則刪除該欄(奇數欄)
If 欄 Mod 2 = 0 Then 欄 = 欄 – 1
‘如果欄數除2餘數為0時，則欄數減1，也就是找出最後個奇數欄
For i = 欄 To 1 Step -2
‘最後一欄依序減2到第一欄(只針對奇數欄)，進行迴圈操作。