在Excel VBA中，你可以通过循环遍历表1（假设是工作表"Sheet1"）的A列，并使用`SpecialCells`方法选择非空白单元格。以下是一个示例： ```vba Sub SelectNonBlankCells() Dim rng As Range Dim cell As Range With Sheets("Sheet1") '请替换为你的实际工作表名称 On Error Resume Next '处理如果没有非空白单元格的情况 Set rng = .Columns("A").SpecialCells(xlCellTypeConstants) '选择常量非空白单元格 Set rng = rng.Resize(rng.Rows.Count + 1).Offset(-1, 0).SpecialCells(xlCellTypeFormulas) '添加公式非空白单元格 On Error GoTo 0 '恢复错误处理 If Not rng Is Nothing Then For Each cell In rng '这里可以对每个非空白单元格进行操作 '例如：cell.Select 或者 Debug.Print cell.Value Next cell Else MsgBox "A列没有找到非空白单元格。" End If End With End Sub ``` 这段代码首先会选中A列中的所有非空白且包含常量值的单元格，然后加入所有非空白且包含公式的单元格。它将遍历并选择这些非空白单元格。如果你只需要其中一种类型的非空白单元格（比如只选择常量），则可以去掉相应的`.SpecialCells`调用行。 [2024-01-12 16:40:59 | AI写代码神器 | 321点数解答]