Question

我尝试谷歌搜索为什么我得到这个答案，但到目前为止没有任何帮助。该工作表不受保护。有任何想法吗？谢谢。

scrollableButtonTopConstraint

Answer 1

您的范围必须是相同的长度，将变量中的地址连接起来，并删除附加的括号。使用模块顶部的Option Explicit并声明所有变量。

Option Explicit
Sub category_sums()
    Dim ws As Worksheet, MyRg1 As Range, MyRg2 As Range
    Set ws = ActiveWorkbook.Worksheets("Test")
    ws.Activate

    Set MyRg1 = ws.Range("$A$2:$A$582")
    Set MyRg2 = ws.Range("$H$2:$H$582")

    ws.Range("J17").Formula = "=SumIf(" & MyRg1.Address & ",""Auto/Transportation"", " & MyRg2.Address & ")"

End Sub

Excel 1004错误-应用程序或对象已定义

1 个答案: