我正在尝试遍历工作表中的行,将当前行的单元格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”的范围。
尝试以下操作:
开始更改:
这是错误的:
我收到以下错误: