Excel VBA：精准选中A列首个至末个非公式空白的非空白单元格

在VBA中，你可以使用下面的代码来实现你的需求： ```vba Sub SelectNonBlankCells() Dim LastRow As Long With ActiveSheet.Range("A:A") '找到A列最后一个非空白单元格的行号 LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row '从A1开始选中到这个非空白单元格 .Range("A1:A" & LastRow).SpecialCells(xlCellTypeConstants).Select End With End Sub ``` 上述代码首先会找出A列最后一个非空白且非公式产生的单元格，然后选中从A1到这个单元格之间的所有非空白且非公式的单元格。 注意：`SpecialCells(xlCellTypeConstants)` 这部分的作用是只选择包含常量（即非公式生成的值）的单元格。如果你的非空白单元格中包含有文本型数据或者数值型数据，但不是通过公式生成的，那么它们会被选中；如果这些单元格的内容是由公式生成的，即使结果显示为非空白，也不会被选中。 ######[AI写代码神器 | 243点数解答 | 2024-01-12 16:51:43]