excel - 代码在一个宏中有效，但在另一个宏中无效？使用相同的数据集

Question

我在 csv 文件上运行 Excel 宏。我有 2 个宏，一个在数据集上工作。我在未保存的情况下关闭并在 SAME 数据集上运行另一个宏，我得到 Excel 错误 - 找不到方法或数据成员。到底是怎么回事？

我已将工作代码从正在工作的模块复制到不工作的模块，保存并再次尝试但得到相同的结果。

这工作......

Sub Download()

'Download Macro


'Delete All transaction rows from spreadsheet containing "Cash" in Column N
    Dim c As Range
    Dim SrchRng
    Set SrchRng = ActiveSheet.Range("N1", ActiveSheet.Range("N999").End(xlUp))
    Do
        Set c = SrchRng.Find("Cash", LookIn:=xlValues)
            If Not c Is Nothing Then c.EntireRow.Delete
            Loop While Not c Is Nothing
End Sub

这个坏了....

Sub IRAs_All()

'IRAs_All Macro

'Delete All transaction rows from spreadsheet containing "Cash" in Column N
    Dim c As Range
    Dim SrchRng
    Set SrchRng = ActiveSheet.Range("N1", ActiveSheet.Range("N999").End(xlUp))
    Do
        Set c = SrchRng.Find("Cash", LookIn:=xlValues)
            If Not c Is Nothing Then c.EntireRow.Delete
            Loop While Not c Is Nothing
End Sub

如果在 N 列中找到“现金”，则正确的行为应该是删除整个 ROW。它在第一个模块中工作正常，但在第二个模块中失败。我收到以下错误 - 未找到方法或数据成员 - EntireRow突出显示

标签： excelvba