Excel 如何通过VBA找出最后一行数据所在的列

Excel 如何通过VBA找出最后一行数据所在的列

1、首先打开数据，在数据工作表上，第一行是日期，下面是数据，要求可以自动获取每一行最后一个数值的日期，如图。



2、首先在工作表上，找到下方的工作表标签，这里是sheet5，在工作表标签上右键，而后在弹出的选项里面，找到查看代码选项。



3、点击查看代码，而后进入VBA编辑窗口，在这里可以输入常用的命令，用来对前台的工作表进行控制。



4、在VBA编辑窗口输入代码，值得说明的是没有用sub，因为sub开始的代码，要用按钮控制，这种事自动运行的。



5、输入代码后，点击关闭，关闭VBA的编辑窗口，而后返回到工作表界面，发现日期一列没有反应，这里是因为没有进行任何操作或是刷新。



6、在工作表窗口任意一个地方双击一下，就相当于刷新工作表，而后可以看到，最后一次出现的数据，全部加载完成。

一般有两个方法，一是使用ActiveSheet.UsedRange，这个表示所有已经使用的区域，一般可以赋值给数组完成所有数据的读取，也可以使用ActiveSheet.UsedRange.Rows.Count和ActiveSheet.UsedRange.Columns.Count获得区域的行列数量。 另外，可以使用End获得某行（或者某列）最后一个数据，例如需要获得A列最后一个数据所有在行可以用： ActivceSheet.Cells(ActivceSheet.Rows.Count,1).End(XlUp).Row

支持一下感觉挺不错的