Excel VBA：一键选择表1中A列首个至末个非空单元格的代码揭秘

在VBA中，你可以通过以下代码来选择工作表1（Sheet1）中A列从第一个到最后一个非空单元格的范围： ```vba Sub SelectNonEmptyCells() Dim ws As Worksheet Dim LastRow As Long ' 设置活动工作表为Sheet1 Set ws = ThisWorkbook.Sheets("Sheet1") ' 获取A列最后一个非空单元格的行号 LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 选择A列从第一个到最后一个非空单元格的范围 ws.Range("A1:A" & LastRow).Select End Sub ``` 这段代码首先定义了要操作的工作表，然后找到A列最后一个有内容（非空）的单元格所在行，最后选中从A1到这个单元格的整个A列区域。 ######[AI写代码神器 | 190点数解答 | 2024-01-12 16:47:27]