Excel VBA：轻松判断表1最后非空格行是否超100行并给出提示

在Excel VBA中，你可以使用以下代码片段来实现这个功能： ```vba Sub CheckLastRow() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1") '请将"Sheet1"替换为你的实际工作表名称 Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '获取A列最后一个非空行数 If lastRow > 100 Then MsgBox "超过100行" Else MsgBox "正常显示" End If End Sub ``` 这段VBA脚本首先定位到指定工作表（这里假设是"Sheet1"），然后找到A列（你也可以换成你需要检查的任何列）的最后一行非空单元格的行号。如果这个行号大于100，则弹出消息框显示“超过100行”，否则显示“正常显示”。 ######[AI写代码神器 | 203点数解答 | 2024-01-12 19:58:42]