Question

我最近遇到了一个非常令人沮丧的问题。我将运行宏，它将完全按预期工作，但当我重置它（设置按钮删除和清除表）并尝试使用完全相同的数据再次运行它我得到运行时错误'1004'：应用程序定义或对象定义错误。它突出了我的价值观之一，尽管搜索了几个小时我仍然找不到任何东西。我的表格没有受到保护，被这样的成功取笑令人非常沮丧。任何意见都将非常感谢！

另外值得注意的是，这是一个相当大的范围，我必须应用自动过滤器并隐藏一堆列以防止它达到65k公式限制。谢谢！

Sub AddMDS()
'Uses SUMIF to find MDS and pair

    Dim LastRow As Long
    Dim LastRow2 As Long
    Rows("1:1").Select
    Range("I1").Activate
    Selection.AutoFilter
    LastRow = Cells(Rows.Count, "A").End(xlUp).row
    ActiveSheet.Range("A1:DV" & LastRow).AutoFilter Field:=19, Criteria1:= _
        "Quantity"

    LastRow2 = Cells(Rows.Count, "A").End(xlUp).row
    Range("V4:DQ" & LastRow2).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=SUMIFS(MDS!C17,MDS!C5,RC5,MDS!C14,R1C)"
    Range("V4:DQ" & LastRow2).SpecialCells(xlCellTypeVisible).NumberFormat = "#,##0"

End Sub
Sub ConvVals()
'Converts sumifs to values to enhance speed
    Dim LastRow As Long
    Dim LastRow2 As Long
    Dim lastrow3 As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).row
    ActiveSheet.Range("A1:DV" & LastRow).AutoFilter Field:=19
    LastRow2 = Cells(Rows.Count, "A").End(xlUp).row
    Range("V4:CC" & LastRow2).value = Range("V4:CC" & LastRow2).value
    lastrow3 = Cells(Rows.Count, "A").End(xlUp).row
    Range("CD4:DT" & lastrow3).value = Range("CD4:DT" & lastrow3).value
    Cells.EntireColumn.Hidden = False

End Sub

忘记提到值的值与第一个LastRow完美匹配，它在第二个上失败。我的第一个想法是它达到了独特角色的范围限制，这就是我打破范围的原因，但即便如此，它仍然没有意义。

Answer 1

所以我看到了这一点并意识到我从未展示过我的解决方案，我向所有人道歉。我最终做了一个解决方法本身，我只是将整个工作表复制并粘贴到一个新的工作表中。我仍然不知道为什么这个不起作用，但粘贴到另一张纸上肯定会。希望有所帮助！

宏第一次工作，然后在将公式转换为值时第二次运行失败

1 个答案: