求一个excel宏,指定条件列隐藏,请高人赐教! 122 122汇总 111 111 111汇总 把不包换汇总字样的列隐藏

2024-12-12 01:42:45
推荐回答(1个)
回答1:

Sub 隐藏列()
Dim i As Integer
For i = 1 To 12
If Cells(1, i) <> "汇总" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
End Sub
说明,12表示有12列,cells(1,i)表示第一行的谋列,假设汇总字样在第一行