VBA代码0002:选中一列中第一个空白单元格

1、进入EXCEL,在任意的一列中输入数据。同时按下ALT+F11，打开VBA代码编辑器。

2、在VBA代码编辑器模块中输入如下VBA代码：

Sub 找到空格()

x = Worksheets("数据").Range("A65536").End(xlUp).Row

For i = 1 To x + 1

If Worksheets("数据").Range("a" & i) = "" Then

Range("a" & i).Select

Exit Sub

End If

Next

End Sub

3、在数据工作表中插入表单控件，并指定定到宏，宏名称为“ 找到空格”。

4、按下表单控件按钮，A列中的有数据的最后一个单元格下面的空白单元格就处于选中状态了，可以从这个单元格再添加数据，再点击表单控件，空白的单元格还可被选中哦。

5、VBA代码解释：判断单元格是否为空值，为空值就选中。