☰

VBA 隐藏包含 N/A 的行

tag-icon • tag-icon microsoft-excel vba office365 microsoft-excel-365
VBA 隐藏包含 N/A 的行

我有一个 Excel 文件，其中包含每日变化的动态数据。例如，用户将在数据选项卡上填充数据，如果单元格中没有填充任何数据 N/A，则使用“if 命令”计算百分比。（屏幕截图）我想添加一个宏来隐藏包含 N/A 单元格的任何行这就是我正在使用的，我要么删除行，要么隐藏所有行。取决于我设置的值。“N”删除所有行 N/A 不执行任何操作。我检查了其他示例，但我无法让其他任何示例工作。

先感谢您！

Sub HideRows()
BeginRow = 9
EndRow = 50
ChkCol = 20

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = "N/A" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt
End Sub

在此处输入图片描述

答案1

我能够使用 andreas 的提示和我找到的新代码完成此操作。这是最终产品。

Sub Hide_E()
Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "E").End(xlUp).Row
On Error Resume Next
For Each c In Range("E1:E" & LastRow)
   If c.Value = "N/A" Then
        c.EntireRow.Hidden = True
    ElseIf c.Value = 1 Then
        c.EntireRow.Hidden = False
    End If
Next
On Error GoTo 0
Application.EnableEvents = True
End Sub

感谢您的帮助！

相关内容