Excel VBA：判断表1最后非空格行数超100则显示行数的代码实现

在Excel VBA中，您可以使用以下代码段来实现这个功能： ```vba Sub CheckLastNonEmptyRow() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("表1") '请将"表1"替换为您的实际工作表名称 '查找最后一个非空行 Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '判断并显示结果 If lastRow > 100 Then MsgBox "表1中的最后一个非空行是第 " & lastRow & " 行。" End If End Sub ``` 这段代码首先定义了要操作的工作表，然后找到该工作表第一列（A列）从下往上查找第一个非空单元格所在的行号，即最后一行非空行。如果这个行号大于100，则弹出一个对话框显示该行号。 ######[AI写代码神器 | 204点数解答 | 2024-01-12 20:09:05]