Excel VBA：判断表1最后非空格行数，超100行显示行数否则显示“正常显示”

您可以使用以下VBA代码实现这个功能： ```vba Sub CheckLastRow() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("表1") '请将"表1"替换为您的实际工作表名称 Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '找到A列的最后一个非空行数 If lastRow > 100 Then MsgBox "最后一个非空行是: " & lastRow Else MsgBox "正常显示" End If End Sub ``` 这段代码首先会定位到工作表"表1"（请根据实际情况替换），然后找出A列中的最后一个非空单元格所在的行数。如果这个行数大于100，就弹出消息框显示具体的行数；否则，弹出消息框显示“正常显示”。 ######[AI写代码神器 | 194点数解答 | 2024-01-12 20:04:10]