Excel VBA：检查表1非空行数，超100行显示“超过100行”

解析：首先，我们需要在Excel VBA中编写一个函数，该函数将检查表1中的非空单元格数量。如果非空单元格数量大于100，则返回“超过100行”，否则返回“正常显示”。 代码如下： ```vba Function CheckRows() As String Dim ws As Worksheet Dim rng As Range Dim lastRow As Long Dim nonEmptyCount As Long Set ws = ThisWorkbook.Worksheets("Sheet1") Set rng = ws.UsedRange lastRow = rng.Cells(rng.Rows.Count, 1).End(xlUp).Row nonEmptyCount = Application.WorksheetFunction.CountA(rng) If nonEmptyCount > 100 Then CheckRows = "超过100行" Else CheckRows = "正常显示" End If End Function ``` 在Excel VBA中，你可以使用`ThisWorkbook.Worksheets("Sheet1")`来选择名为“Sheet1”的工作表。`ws.UsedRange`表示工作表中已使用的单元格范围。`Application.WorksheetFunction.CountA(rng)`用于计算指定范围内非空单元格的数量。 ######[AI写代码神器 | 295点数解答 | 2024-01-12 19:57:15]