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