vba - 计数记录/行

Question

我有一个将 excel 文件保存为 .txt 的宏。我需要在 .txt 文件(“Records|123”)的顶部插入一个记录数。我插入了行，我在 A1 中有记录这个词，现在我想弄清楚如何在 B1 中获取行数。我试过 CountIf、LastRow、EndRow 和现在 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。有没有人对如何让它发挥作用有任何想法？或者你能给我指出一个不同的方向吗？先感谢您。

Answer 1

像这样的东西。

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