Sub 试试1()
'此sub示例：直接隐藏
'将单元格或区域的整列属性的隐藏属性赋值为true
Range("A10,C6:G6,L8").EntireColumn.Hidden = True
End Sub
Sub 试试2()
'此sub示例：for each 循环，判断整列为空时则隐藏整列
Dim g As Range
For Each g In Range("A8:B8")
If g.EntireColumn.Find("*") Is Nothing Then
g.EntireColumn.Hidden = True
End If
Next
End Sub
Sub 试试3()
'此sub示例：for i 循环，判断整列为空时则隐藏整列
Dim i As Integer
For i = 1 To 2
If Cells(10, i).EntireColumn.Find("*") Is Nothing Then
Cells(10, i).EntireColumn.Hidden = True
End If
Next
End Sub
Sub 试试4()
'此sub示例：同样是for i 循环，但换了一种判断方法
Dim i As Integer
For i = 1 To 2
If WorksheetFunction.CountA(Cells(10, i).EntireColumn) = 0 Then
Cells(10, i).EntireColumn.Hidden = True
End If
Next
End Sub
在 Excel 中使用 VBA 来进行条件判断并自动隐藏列，你可以按照以下步骤进行操作：
打开 Excel，按下 ALT + F11 键，打开 Visual Basic for Applications (VBA) 编辑器。
在 VBA 编辑器中，找到你想要应用条件判断的工作表。在 "项目资源管理器" 窗口中，双击该工作表以打开代码窗口。
在代码窗口中，输入以下 VBA 代码来进行条件判断和列隐藏操作：
- vbaCopy codeSub HideColumnsBasedOnCondition()
- Dim LastRow As Long
- Dim i As Long
- LastRow = Cells(Rows.Count, "A").End(xlUp).Row ' 根据具体情况确定判断的行数
- For i = 1 To LastRow
- ' 在此处进行条件判断，根据判断结果来隐藏相应列
- If Range("A" & i).Value = "条件" Then ' 根据具体条件进行修改
- Columns("B:C").EntireColumn.Hidden = True ' 需要隐藏的列，根据具体情况修改
- End If
- Next i
- End Sub
在代码中，根据你的具体情况进行修改。你可以修改 LastRow 变量来确定需要判断的行数，修改 Range("A" & i).Value 的范围和条件来进行具体的判断，以及修改 Columns("B:C") 来指定需要隐藏的列。
按下 F5 键或点击 VBA 编辑器的 "运行" 按钮来执行代码。
