EXCEL如何隐藏该列，懂VBA的来

发布网友 发布时间：2022-04-22 11:50

我来回答

共2个回答

热心网友 时间：2023-09-10 19:52

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

热心网友 时间：2023-09-10 19:53

在 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 编辑器的 "运行" 按钮来执行代码。