【Excel VBA】快速刪除偶數列

內容目錄

VBA快速刪除偶數列

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

輸入巨集

方法一符合偶數列刪除

Sub 刪除偶數列()
列 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 列 To 2 Step -1
If i Mod 2 = 0 Then
Rows(i).Delete
End If
Next
End Sub

方法二找到偶數列跳列刪除

Sub 刪除偶數列()
列 = Cells(Rows.Count, 1).End(xlUp).Row
If 列 Mod 2 = 1 Then 列 = 列 – 1
For i = 列 To 2 Step -2
Rows(i).Delete
Next i
End Sub

語法說明

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