ALT+F11打开VBE编辑器,新建一个模块,输入如下代码:
Sub hiddosl()
'隐藏偶数列
Dim rg As Range, flag As Boolean
Application.ScreenUpdating = False
flag = True
hl = ActiveSheet.Range("a65536").End(xlUp).Row
For i = 2 To hl Step 2
If Rows(i).Hidden = False Then
If flag Then
Set rg = Rows(i)
flag = False
Else
Set rg = Union(rg, Rows(i))
End If
End If
Next
If flag = False Then
rg.EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
运行hiddosl宏即可。
本回答被提问者采纳