如何修改VBA代码中统计有效金额行数的C2赋值语句？

要实现忽略首行列名和空单元格、仅统计包含金额的行数，你需要替换原代码中C2的赋值语句，改为统计目标范围内符合条件的单元格数量：

修改后的核心代码片段 #

' 替换原C2行的代码
Dim validRowCount As Long
Dim dataRange As Range
' 跳过首行（列名），提取仅包含数据的范围
Set dataRange = Cle.Offset(1).Resize(Cle.Rows.Count - 1)
' 统计范围内的数字单元格（自动忽略空单元格）
validRowCount = WorksheetFunction.Count(dataRange)
' 格式化为7位固定长度字符串
C2 = CStr(Format(validRowCount, "0000000"))

或者更简洁的单行写法：

C2 = CStr(Format(WorksheetFunction.Count(Cle.Offset(1).Resize(Cle.Rows.Count - 1)), "0000000"))

代码说明 #

• Cle.Offset(1)：将原范围向下偏移1行，直接跳过首行的列名称单元格。
• Resize(Cle.Rows.Count - 1)：调整范围行数，去掉首行对应的1行，确保只处理数据行。
• WorksheetFunction.Count(dataRange)：Count函数会自动统计范围内包含数字的非空单元格，完美匹配统计金额行数的需求，空单元格会被自动忽略。
• Format(validRowCount, "0000000")：保持原代码的格式要求，将统计结果转为7位固定长度字符串，不足位数时前面补0。

完整修改后的函数 #

Public Function CDZEman(Compte As String, Cle As Range, Optional mois As String, Optional annee As String) As String
    Dim C1 As String, cler As String, C2 As String, C3 As String
    Dim validRowCount As Long
    Dim dataRange As Range

    C1 = Right("00000000000000000000" & Compte, 20)
    cler = WorksheetFunction.Sum(Cle)
    cler = CStr(Format(cler * 100, "0000000000000"))

    ' 处理有效行数统计
    Set dataRange = Cle.Offset(1).Resize(Cle.Rows.Count - 1)
    validRowCount = WorksheetFunction.Count(dataRange)
    C2 = CStr(Format(validRowCount, "0000000"))

    If mois = "" Then mois = Month(Now())
    If annee = "" Then annee = Year(Now())
    mois = Right(CStr(Format(mois, "00")), 2) & Right(CStr(Format(annee, "0000")), 4)
    C3 = Space(14) & "0"

    CDZEman = "*" & C1 & cler & C2 & mois & C3
End Function

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