EXCEL如何自动动态统计记录条数。

可以通过EXCEL的插入函数中的COUNT来实现自动统计，具体的实现方法如下图所示：

1、打开需要处理的EXCEL文件可以看到当前的数据记录。

2、在需要统计记录的单元格中点击EXCEL上方的公示公示按钮。

3、在出现的选项中点击插入函数按钮，选择COUNT后点击确定按钮。

4、在出现的函数参数对话框中点击第一个小箭头后，框选需要统计的区域以后点击确定按钮。

5、即可看到利用函数公式已经统计出了该区域内的记录条数了。

6、如任意选择删除几条记录以后，该统计的记录条数就自动发生了变化。

Private Sub Form_Load()

Dim filetxt As String

filetxt = String(FileLen("文本文件"), " ")

Open "文本文件" For Binary As 1

Get #1, , filetxt

Close 1

Hx = Split(filetxt, vbCrLf)

Lines = UBound(Hx) '文本文件行数

---