Excel怎么用宏删除每隔一列的所有列内容！

Question

如题所述

Answer 1

如果删除1、3、5、7、9……等奇数列，代码如下：
Sub ABC()
For N = 1 To 128
If WorksheetFunction.CountA(Columns(N)) = 0 Then Exit For
Columns(N).Delete
Next
End Sub
如果删除2、4、6、8……等偶数列，只将第二句修改即可：
For N = 2 To 128

Answer 2

删除偶数列内容 

Sub test()

For i = 128 To 1 Step -1

Columns(i * 2).Clear

Next

End Sub

删除奇数列内容

Sub test()

For i = 128 To 1 Step -1

Columns(i * 2-1).Clear

Next

End Sub

本回答被提问者和网友采纳

Answer 3

Sub DEL()
Dim i As Long
'第3行开始 到第200行，间隔一行删除.自己根据需要修改下面三个数就可以了
For i = 3 To 200 Step 2 '
Columns(i).Clear
Next
End Sub

Answer 4

Sub 清除偶数行内容()

Dim rng As Range
For Each rng In Columns
If rng.Column Mod 2 = 0 Then rng.Clear
Next
End Sub
Sub 清除偶数行内容()
Dim rng As Range
For Each rng In Columns
If rng.Column Mod 2 = 1 Then rng.Clear
Next
End Sub