在以下代码中出现错误,调试显示错误已打开:
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
如果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
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句