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

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

在EXCEL中，有时某列的数据是变动的，需要选中某列中最后一个有内容的单元格下面的空白单元格，继续录入数据，怎么办呢?这时需要用到VBA代码来实现，无论这列中数据怎么变化，只要一点击按钮，就可以选中这列的最后一个有内容单元格下面的空白单元格，下面分享我的经验，希望你掌握VBA语言，请支持我并评论哦。

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

在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

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

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

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