Madamadam's questions

我正在尝试编写一个 VBA 宏来隐藏可见单元格全部为空的行。这意味着，那些可见单元格全部为空但仍然具有非空值的隐藏单元格的行也应该被隐藏。

不幸的是，我正在使用的代码仅隐藏了没有具有非空值的隐藏单元格的行：

'==========================================
' Hide Empty Rows
'==========================================
Sub hideEmptyRows()
    ' Set variables
    Dim i As Integer
    Dim lngLastCell As Long
    ' Get last cell
    lngLastCell = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    ' Turn screen updating off
    Application.ScreenUpdating = False
    ' Loop from 3rd to last cell
    For i = 3 To lngLastCell
        ' Check if row has any values
        If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
            ' Hide row
            Rows(i).Hidden = True
        End If
    Next i
    ' turn screen updating on
    Application.ScreenUpdating = True
End Sub

根据此消息来源，您只能使用来自您有权发送的域或从域回复，否则您会发现自己被阻止。我想，只要发件人地址来自您有权发送的域，您就可以自由选择您的回复域。有人可以确认上述来源，也许还有其他一些提供一些背景的更深刻的互联网来源？