Excel VBA中的无效过程调用和参数错误

以下代码中出现错误，调试显示错误已打开：

Set Target = Union(Target, Range("B" & i))

---

---

如果

Target

为nothing，则不能将nothing合并到某个范围。您需要一个if来启动范围：

Dim Length As Long
Dim a As String
Dim Target As Range

Length = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Set Target = Nothing

For i = 1 To Length
    a = Sheet1.Cells(i, 3).Value
    If a Like "*June 18, 2020" Then
        If Target is nothing then
            Set Target = Sheet1.Range("B" & i)
        Else
            Set Target = Union(Target, Sheet1.Range("B" & i))
        End If
    End If
Next i

---

如果

Target

为nothing，则不能将nothing合并到某个范围。您需要一个if来启动范围：

Dim Length As Long
Dim a As String
Dim Target As Range

Length = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Set Target = Nothing

For i = 1 To Length
    a = Sheet1.Cells(i, 3).Value
    If a Like "*June 18, 2020" Then
        If Target is nothing then
            Set Target = Sheet1.Range("B" & i)
        Else
            Set Target = Union(Target, Sheet1.Range("B" & i))
        End If
    End If
Next i