在VBA中，你可以通过以下代码来选择工作表1（Sheet1）中A列从第一个单元格到最后一个非空白单元格的区域： ```vba Sub SelectNonBlankCells() Dim ws As Worksheet Dim lastRow As Long Set ws = ThisWorkbook.Sheets("Sheet1") ' 更改 "Sheet1" 为你的工作表名称 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 找到A列最后一个非空白单元格所在的行号 ws.Range("A1:A" & lastRow).Select ' 选择从A1到找到的最后一行的区域 End Sub ``` 这段代码首先定义了要操作的工作表，然后通过 `xlUp` 方向查找A列最后一个非空白单元格的行号，最后选定从A1到这个行号的整个A列区域。 [2024-01-12 16:41:55 | AI写代码神器 | 193点数解答]