Excel VBA 質問スレ Part64

[550 デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-ep3J) 2020/02/08(土) 14:42:01.53 ID:Di3wk8ih0]

>>549
ちょっとググったらUnion(Nothing, ...)はダメみたいやね
> Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)
↓
If TargetRows Is Nothing Then
Set TargetRows = ActiveSheet.Rows(r).EntireRow
Else
Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)
End If