Excel宏导出TXT：如何在B1单元格添加正确记录行数

我来帮你搞定这个问题！你已经走对了第一步——插入第一行并填好Records，现在关键是准确计算实际的记录行数。

核心思路 #

你提到第1行是新增的记录行、第2行是表头，实际数据从第3行开始。所以我们需要：

• 找到数据列（你指定的D列）最后一行有内容的行号
• 用这个行号减去2（减去新增的第1行和表头行），得到真实的记录数

修改后的完整宏代码 #

Sub ExportToTxtWithRecordCount()
    ' 插入新的第1行，用于放置记录计数
    Rows(1).Insert Shift:=xlDown
    Range("A1").Value = "Records"
    
    ' 获取D列最后一行有数据的行号（避免A-C列的空行干扰）
    Dim lastDataRow As Long
    lastDataRow = Cells(Rows.Count, "D").End(xlUp).Row
    
    ' 计算真实记录数：总数据行（从第3行到lastDataRow）= lastDataRow - 2
    ' 减去的2是新增的记录行（第1行）和表头行（第2行）
    Range("B1").Value = lastDataRow - 2
    
    ' 将文件另存为TXT（用Windows文本格式，避免换行符问题）
    Dim outputPath As String
    outputPath = ThisWorkbook.Path & "\你的文件名.txt" ' 替换成你想要的文件名
    ThisWorkbook.SaveAs Filename:=outputPath, FileFormat:=xlTextWindows, CreateBackup:=False
End Sub

为什么之前的方法可能失效？ #

• CountIf：如果D列存在空白单元格，会漏算记录
• 直接用Rows.Count：如果不指定数据列，可能会被A-C列的空行误导
• 减2的逻辑：只有当新增行后表头在第2行、数据从第3行开始时，这个减法才成立，代码里我们通过指定D列最后行来确保准确性

边界情况处理 #

如果表格里没有实际数据（只有表头），lastDataRow会等于2，计算后B1的值为0，这也符合实际记录数为0的情况。

内容的提问来源于stack exchange，提问作者kms5549