1004:尝试检查单元格内容时,应用程序定义了错误

问题描述 投票:0回答:4

我正在尝试遍历工作表中的行,将当前行的单元格B-F添加到要复制到另一工作表的范围中。仅当G列中的值为“活动”且C列中的值具有值(非空/无/空/!#VALUE ...)时,才应将行(BF)中的单元格添加到该范围中。

我已经尝试了几种解决方法,但是我不断收到1004:第一个If语句产生了App / Object定义的错误

[msgbox显示我的范围是有效的,我尝试了限定最小的详细信息,并且也使用了Cells()而不是.range无效。

MsgBox (ActiveWorkbook.Worksheets("Staging").range("G" & Cells(rows.Count, 5).End(xlUp).Row).Value)

For i = Cells(rows.Count, 5).End(xlUp).Row To i = 1 Step -1
    If ActiveWorkbook.Worksheets("Staging").Cells("G" & i).Value = "Active" Then
        If Not IsError(ActiveWorkbook.Worksheets("Staging").range("C" & i)) Then
            Set selectRange = range("B" & i & ":F" & i)
            Set copyRange = Union2(copyRange, selectRange)
        Else
        'Do Nothing
        End If
    Else
        'Do Nothing
    End If
Next

我只是在这里遗漏了一些简单的东西吗?我已经为此努力了几个小时。

...并且让您鹰眼之外,Union2不是一个错字,只是一个用户定义的函数,以避免无法加入设置为“ Nothing”的范围。

excel vba excel-vba
4个回答
0
投票

尝试以下操作:


0
投票

开始更改:


0
投票

这是错误的:


0
投票

我收到以下错误:

© www.soinside.com 2019 - 2024. All rights reserved.