第2个回答 2012-08-09
可以用宏实现,按alt+F11,然后把这个代码放复制进去,然后点上面那个运行符号(一下小三角,在工具栏中间位置),这个程序可以完成100列,如果不够你可以该里面的i的值,i 越大修改的列越多。
Sub Macro1()
'
' Macro1 Macro
'
Dim i As Single
For i = 100 To 1 Step -1 ’这个地方的100可以修改,有多少列就可以改成多少
If i Mod 6 <> 1 Then
Columns(i).Select
Selection.Delete Shift:=xlToLeft
End If
Next i
End Sub