Vba 计数记录/行

我有一个宏，可以将excel文件保存到.txt。我需要在.txt文件的顶部插入一个记录计数（“记录| 123”）。我插入了行，A1中有单词记录，现在我想知道如何获得B1中的行数。我试过CountIf、LastRow、EndRow和now COUNT。我减去2是因为第1行是记录计数，第2行是列标题，我引用D列是因为A-C列包含数字，它也不喜欢这样。以下是我所拥有的：

Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "Records"
Range("B1").Select
ActiveCell.Value = (EndRow - 2)
ActiveCell.FormulaR1C1 = "=COUNT(D:D)"

---

这是给我的记录| 0。有没有人对如何让它发挥作用有什么想法？或者你能给我指个不同的方向吗？提前感谢您。

您可以在插入标题行之前获得行数

dim newvariable as long
newvariable = Thisworkbook.worksheets("yoursheet").UsedRange.Rows.Count

然后插入新的标题行，并将该值放入单元格中，如下所示：

Thisworkbook.worksheets("yoursheet").Range("a1").Value = newvariable

像这样的

Dim ws As Worksheet
Dim lr As Long

ws = ThisWorkbook.Sheets("Sheet1")
lr = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row

With ws
    .Range("B1") = lr - 2
End with

---

COUNT给出包含数字的单元格总数。也许你想要COUNTA？