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

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

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

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

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

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

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

引用excel,然后：

nLR

=

ActiveSheet.Cells.SpecialCells(xlLastCell).Row

'最后一行（与连续与否无关）

Nextcol

=

Cells(nLR,

1).End(xlToRight).Column

'查找最后一行最后一列（与连续与否无关）

然后循环读单元格的值就行了。

数据库：执行查询语句后得到一个Recordset，使用RecordSet.MoveLast属性可以找到最后一条记录。

TXT文件：Open

StrPath

For

Input

As

#1

Do

While

Not

EOF(1)

Line

Input

#1,

TXTCon

i

=

i

+

1

Loop

Close

#1

以上是读取txt文件的方法，当close后i的值就是txt文件的总行数。然后再运行下面的方法

Open

StrPath

For

Input

As

#1

Do

While

Not

EOF(1)

Line

Input

#1,

TXTCon

If

j=

iThen

msgbox

TXTCon

'这个就是最后一行记录

Close

#1

Exit

Sub

End

If

j=

j

+

1

Loop

Close

#1

StrPath

是txt文件的路径+文件名

---