excel考勤表（宏） 公共rctr 公共cctr 亚宏观1（） ' '宏1宏 ' '键盘快捷键：Ctrl+Shift+A ' 呼叫计数 呼叫帐户 如果范围（“B”和rctr）=“则 范围（“A”和rctr）。选择 ActiveCell.FormulaR1C1=“=COUNTA（R2C:R[-1]C）” Selection.AutoFill Destination:=范围（“A”&rctr&“：”&Cells（rctr，cctr-1）.Address），类型：=xlFillDefault 范围（“B”和rctr+1）。选择 ActiveCell.FormulaR1C1=“=R[-1]C1-R[-1]C” Selection.AutoFill Destination:=范围（“B”&rctr+1&“：”&单元格（rctr+1，cctr-1）.Address），类型：=xlFillDefault 单元格（1，cctr）。选择 ActiveCell.FormulaR1C1=“总计” 单元格（2，cctr）。选择 ActiveCell.FormulaR1C1=“COUNTA（RC2:RC[-1]）” Selection.AutoFill Destination:=范围（单元格（2，cctr）.地址&“：”&单元格（rctr-1，cctr）.地址），类型：=xlFillDefault 范围（“A1”）。选择 其他的 嘟嘟声 如果结束 端接头 亚宏观经济2（） ' '宏2宏 ' '键盘快捷键：Ctrl+Shift+C ' 呼叫计数 呼叫帐户 如果范围（“B”&rctr）”，则 范围（“A”&rctr-1&“：”&Cells（rctr，cctr.Address）。选择 选择.ClearContents 范围（单元格（1，cctr-1）。地址和：“&单元格（rctr，cctr-1）。地址）。选择 选择.ClearContents 范围（“A1”）。选择 其他的 嘟嘟声 如果结束 端接头 子计数（） rctr=1 做 rctr=rctr+1 循环时（范围（“A”&rctr）”） 端接头 子帐户（） cctr=1 做 cctr=cctr+1 **循环While（单元格（“A”和cctr.Address“”）** 端接头

我在这个循环中遇到运行时错误1004应用程序定义错误或对象定义错误。有人请帮帮我。我不知道该怎么办。我是VBA编程的新手

我得到一个不同的帐户过程错误，但它应该是

范围

，而不是

单元格

：

Public rctr
Public cctr
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
    Call RCount
    Call CCount
    If Range("B" & rctr) = "" Then
    Range("A" & rctr).Select
    ActiveCell.FormulaR1C1 = "=COUNTA(R2C:R[-1]C)"
    Selection.AutoFill Destination:=Range("A" & rctr & ":" & Cells(rctr, cctr - 1).Address), Type:=xlFillDefault
    Range("B" & rctr + 1).Select
    ActiveCell.FormulaR1C1 = "=R[-1]C1-R[-1]C"
    Selection.AutoFill Destination:=Range("B" & rctr + 1 & ":" & Cells(rctr + 1, cctr - 1).Address), Type:=xlFillDefault

    Cells(1, cctr).Select
    ActiveCell.FormulaR1C1 = "TOTAL"
    Cells(2, cctr).Select
    ActiveCell.FormulaR1C1 = "COUNTA(RC2:RC[-1])"
    Selection.AutoFill Destination:=Range(Cells(2, cctr).Address & ":" & Cells(rctr - 1, cctr).Address), Type:=xlFillDefault
    Range("A1").Select
    Else
        Beep
    End If
End Sub
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
    Call RCount
    Call CCount
    If Range("B" & rctr) <> "" Then
    Range("A" & rctr - 1 & ":" & Cells(rctr, cctr).Address).Select
    Selection.ClearContents
    Range(Cells(1, cctr - 1).Address & ":" & Cells(rctr, cctr - 1).Address).Select
    Selection.ClearContents
    Range("A1").Select

    Else
        Beep
    End If

End Sub

Sub RCount()
    rctr = 1
    Do
        rctr = rctr + 1
    Loop While (Range("A" & rctr) <> "")
End Sub
Sub CCount()
    cctr = 1
    Do
        cctr = cctr + 1
    **Loop While (Cells("A" & cctr).Address <> "")** 
End Sub

子帐户（）
cctr=1
做
cctr=cctr+1
循环While（范围（“A”&cctr.Address”）
端接头

这将生成您所述的错误，因为它将循环到列中的最后一个单元格，并且尝试移动到下一个单元格是错误的-没有下一个单元格。一个范围始终有一个

地址

，因此您的条件“”始终得到满足

您的RCount过程也有相同的问题

---

如果您想要工作表中的总行数，那么它只是

行。Count

哪一行产生了错误？我不想猜测你什么时候可以告诉我们.Sub-CCount（）cctr=1 Do-cctr=cctr+1循环，而（Cells（“A”&cctr）.Address“”）结束这个循环。那个有星号的。

Sub CCount()
    cctr = 1
    Do
        cctr = cctr + 1
    Loop While (Range("A" & cctr).Address <> "")
End Sub