图示EXCEL表格vba系列20之End (xlUp)简单介绍

1. 首先需要将显示end（xlup）格式写好，以便可以简单的测试，如下图所示：

   
2. 2

   接下来需要将代码指定到宏中的模块1中，以便能够将代码运行，如下图所示：

   
   END

方法/步骤2

 

1. 1

   接下来就是编写代码，Sheet1.Range("A12").End (xlUp)开始与第12行第一列，如下图所示：

   
2. 2

   简单做一下测试，需要将测试的结果显示在表格中，以便可以直观的看到代码运行的情况，如下图所示：

   
3. 3

   代码浅析

   Sheet1.Range("C2") = Sheet1.Range("A12").End(xlUp)

   将运行的结果显示在单元格C2中，

   END

方法/步骤3

 

1.  

   最后添加数据测试，如下图所示，可以看到代码的运行结果是向上查找，显示最后一个单元格的数值，记住是向上的。

   
2.  

   将中间空出一个单元格后，结果显示3，意味着代码是非空检测，这点很重要，如下图所示：

   
3. 3

   综上所述，

   Sheet1.Range("C2") = Sheet1.Range("A12").End(xlUp)

   中End(xlUp)为向上检测非空单元格数据。