在使用 Excel 进行数据处理时，有时需要对某一列中的非空单元格进行操作，比如统计、筛选或格式化等。通过 Excel VBA（Visual Basic for Applications）可以轻松实现这一需求。以下是一段简洁且高效的代码示例，帮助你快速定位并选中某列中包含内容的所有单元格。

步骤详解：

1. 打开 VBA 编辑器

按下 `Alt + F11` 快捷键，打开 Microsoft Visual Basic for Applications 窗口。

2. 插入模块

在左侧项目资源管理器中右键点击你的工作簿名称，选择“插入” -> “模块”，创建一个新的模块用于编写代码。

3. 输入以下代码

```vba

Sub SelectNonEmptyCellsInColumn()

Dim ws As Worksheet

Dim colLetter As String

Dim lastRow As Long

Dim cell As Range

' 设置工作表和目标列字母

Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为实际的工作表名称

colLetter = "A" ' 替换为目标列的字母（如 A、B、C 等）

' 获取该列的最后一行

lastRow = ws.Cells(ws.Rows.Count, colLetter).End(xlUp).Row

' 清除现有选区

ws.Cells.ClearFormats

' 遍历该列的所有单元格

For Each cell In ws.Range(colLetter & "1:" & colLetter & lastRow)

If Not IsEmpty(cell.Value) Then

cell.Select

End If

Next cell

End Sub

```

4. 解释代码逻辑

- `ws` 变量定义了当前操作的工作表。

- `colLetter` 用于指定目标列的字母（例如“A”代表第一列）。

- `lastRow` 计算出该列最后一个有数据的行号。

- 使用 `For Each` 循环遍历从该列的第一行到最后一行的所有单元格。

- 利用 `IsEmpty()` 函数判断单元格是否为空，若不为空，则将其选中。

5. 运行宏

关闭 VBA 编辑器后返回 Excel，按下 `Alt + F8` 打开宏对话框，选择刚刚编写的 `SelectNonEmptyCellsInColumn` 宏并点击“运行”。

6. 结果展示

宏执行完成后，你会看到该列中所有包含内容的单元格都被选中了。此时可以根据需要进一步处理这些单元格。

注意事项：

- 如果目标列的数据量较大，请确保你的计算机性能足够支持循环操作。

- 修改代码中的工作表名称和列字母以适应实际情况。

- 为了提高效率，建议在处理大量数据时尽量减少不必要的屏幕刷新操作，可以通过添加 `Application.ScreenUpdating = False` 和 `Application.Calculation = xlCalculationManual` 来优化性能。

通过上述方法，你可以轻松地在 Excel 中利用 VBA 技术实现对特定列内有内容单元格的选择与后续处理。希望这段代码对你有所帮助！