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 來計算行數。

子測試1()

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