excel - 如何为同一变量分配更多范围？

Question

我想为变量分配更多范围。

消息“运行时错误:无效的过程调用或参数”
出现在 Set bckup = Union(.Cells(3, i), bckup)线。
我尝试使用功能“范围”

设置 bckup = Range(.Cells(3, i), bckup)

但也收到消息“对象_global的方法范围失败”
或 Set bckup = Range(.Cells(3, i) & bckup)并得到“对象变量或未设置 block 变量”

With Workbooks("Deactivate.xlsm").Worksheets(2)
For i = 500 To 2 Step -1

    If .Cells(3, i).Value <> "" Then

        If .Cells(7, i) = 0 Then

        'Run time error :invalid procedure call or argument
        Set bckup = Union(.Cells(3, i), bckup)

        bckup.Select
        End If

    End If
Next i
End With

我想将所有符合条件的范围存储在一个变量中。

Answer 1

您需要先检查是否bckup包含无法与 Nothing 联合的任何内容.

With Workbooks("Deactivate.xlsm").Worksheets(2)
    For i = 500 To 2 Step -1
        If .Cells(3, i).Value <> "" Then
            If .Cells(7, i) = 0 Then
                If bckup Is Nothing Then
                    Set bckup = .Cells(3, i)
                Else
                    Set bckup = Union(.Cells(3, i), bckup)
                End If
            End If
        End If
    Next i
End With