|
位置を間違ってました。
このままだと、見つからなかった場合エラーになります。
> Set saigocel = .Find("*", After:=saishocel, LookIn:=xlValues, LookAt:=xlPart)
> SaveCel = saigocel.Address
> If Not saigocel Is Nothing Then
> Do
> saigocel.Select
> Set saigocel = .FindNext(saigocel)
> Loop Until saigocel.Address = SaveCel
> End If
↓
Set saigocel = .Find("*", After:=saishocel, LookIn:=xlValues, LookAt:=xlPart)
If Not saigocel Is Nothing Then
SaveCel = saigocel.Address '←ここにしないとダメです。
Do
saigocel.Select
Set saigocel = .FindNext(saigocel)
Loop Until saigocel.Address = SaveCel
End If
|
|