1、首先需要将表格中的基本格式设置好，以便可以直观的看到代码的运行效果，方便说明，如下图所示：
2、将表格中的控件指定到宏，以便可以让代码运行，换句话说，点击控件后，可以执行模块1用的代码，如下图所示：
1、接下来就是编写代码，如下图所示：
2、代码Sheet1.Range("C2") = Sheet1.Range("A9").End(xlToRight)简单点说明，就是将后面的结果显示到前面的单元格中，如下图所示：
3、加入测试数据，以便可以直观的看到代码运行的结果，如下图所示：
1、最后就是点击控件按钮，执行写好的代码，起始数据开始一直到209结束，将结果显示到单元格C2中，如下图所示：
2、修改数据后，如下所示：
3、点击控件按钮后，可以看到结果，End(xlToRight)向右查找非空的数据后截止，如下图所示：（即使后面有数据的情况下）
