如何用VBA选中一列中的第一个空单元格

1. 快速选中整列：将鼠标放至需选中列的第一个单元格位置。

2. 然后按住ctrl+shift+下键头，即可选中一列。

3. 当然如果中间遇到空格，就要继续按ctrl+shift+下键头
   快速选中整行：将鼠标放至需选中行的第一个单元格位置。

4. 然后按住ctrl+shift+右键头，即可选中一行。

5. 当然如果中间遇到空格，就要继续按ctrl+shift+右键头。

假如是 第 j 列。

i=1
do while activesheet.cells(i,j).value =""
i = i+1
loop

activesheet.cells(i,j).select

Sub OkExcel()
'智能EXCEL 网站提供
Dim c As Range, r As Range
Set r = Worksheets("Sheet1").Range("A:A")
If r(1).Text = "" Then
Set c = r(1)
Else
Set c = r.Find("")
End If
If Not c Is Nothing Then c.Select
Set r = Nothing
Set c = Nothing
End Sub

Sub SelectFirstCell(col As long)

ActiveSheet.Cells(1, col).Select

End Sub
可以通过参数col指定列号。