VBA 中的無效過程調用和參數錯誤

Question

在以下代碼中出現錯誤，調試顯示錯誤已打開：

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

---

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
        Set Target = Union(Target, Range("B" & i))
    End If
Next i

Answer 1

如果Target什么都不是，那么您不能將任何內容聯合到一個范圍內。 您將需要一個 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