vba代码：如果行数= 1，则显示一个消息框并停止宏，否则继续宏

Question

我需要以下vba代码。如果你能帮助，将会很高兴.vba代码：如果 行数= 1（仅适用于可见单元格）然后显示一个消息框并停止宏，否则继续宏。

Answer 1

If Sheets(1).AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count = 1 Then
  MsgBox "number of rows = 1"
  End sub
End If

编辑此代码以满足您的需求

Answer 2

我使用了xlCellTypeVisible来计算行数。

Sub test1（）

Dim Lastrow As Long

Dim ws As Worksheet


Set ws = ThisWorkbook.ActiveSheet

Lastrow = ws.Columns(1).SpecialCells(xlCellTypeVisible).Rows.Count


If Lastrow = 1 Then

     MsgBox " Rows les than 1"
    Exit Sub
Else

End If




End Sub