如果单元格为空则隐藏行

Question

我有一个工作sheet 活动代码，如果第 A:A 列的内容为空白，它会隐藏所有行。现在，这段代码工作正常。我正在尝试将相同的代码应用于同一 sheet 上的按钮，然后该按钮将隐藏列 M:M 中的任何行，该行也是空白的。

Sub Hide_Unused_Rows()

'Hide rows with no requirements
Dim lastrow As Long
Dim datasheet As Worksheet
Dim i As Long

Set datasheet = Sheets("ORDER FORM")

lastrow = datasheet.Range("M" & datasheet.Rows.Count).End(xlUp).Row

For i = lastrow To 2 Step -1
    If datasheet.Cells(i, 1) = "" Then
        datasheet.Rows(i & ":" & i).EntireRow.Hidden = True
    End If
Next I

End Sub

如上所述，此代码在应用于第 1 阶段（Worksheet 激活）时完美运行，但当应用于第 2 阶段时，它不会隐藏列 M 中单元格所在的行是空白的。除了 lastrow = datasheet.Range("M" & datasheet.Rows.Count).End(xlUp).Row 引用列 A 或列 M.

之外，这 2 个操作的代码是相同的

Answer 1

您忘记更改此处的列：

If datasheet.Cells(i, 1) = "" Then

见下文。

Sub Hide_Unused_Rows()

'Hide rows with no requirements
Dim lastrow As Long
Dim datasheet As Worksheet
Dim i As Long

Set datasheet = Sheets("ORDER FORM")

lastrow = datasheet.Range("M" & datasheet.Rows.Count).End(xlUp).Row

For i = lastrow To 2 Step -1
    If datasheet.Cells(i, "M") = "" Then
        datasheet.Rows(i & ":" & i).EntireRow.Hidden = True
    End If
Next i

End Sub

如果单元格为空则隐藏行

Hide Row if Cell is blank

excel

vba

show-hide