VBA代码0001:选中一列中有内容的最后一个单元格

1、进入EXCEL,在任意的一列中输入数据。

2、同时按下ALT+F11，打开VBA代码编辑器。

3、在VBA代码编辑器SHEET1中输入如下VBA代码：

SubMacro1() 

Worksheets("sheet1").Range("a1").End(xlDown).Select 

EndSub

4、在sheet1工作表中插入表单控件，并指定定到宏，宏名称为 Macro1

5、按下表单控件按钮，A列中的有数据的最后一个单元格就处于选中状态了，可以在最后一个单元格下面再添加数据，再点击表单控件，选中的单元格就发生了变化。

6、解释VBA代码的含义：

Sub：命名，定义

Macro1：宏的名称

Worksheets("sheet1")：工作边表1

Range("a1")：第一列中的A1单元格

End(xlDown)：向下有内容到最后一个单元格

Select ：选中

End Sub：结束定义，命名

总体的含义：

命名一个宏，选中工作表1，从A1起向下到最后一个有内容单元格选中，结束宏。