エクセル内の同上と書いてあるセルの上をFillDownしたい。
住所録をもらったのですが、
同じ住所と郵便番号の場合「同上」か「空白」になっていて入力されていません。
見よう見まねでとりあえず郵便番号で1回の住所で１回実行する感じでマクロを作ってみたのですが、
Loop While ～の行で
「オブジェクト変数または With ブロック変数が設定されていません。(Error 91)」
とエラーが出て終わりません。
なぜこのエラーが出るのでしょうか？
Sub 同じ()
Dim list(2)
list(1) = "同上"
list(2) = ""
tmp2 = Val(InputBox("検索列"))
LR = ActiveSheet.Cells(65536, tmp2).End(xlUp).Row
For i = 1 To 2
Set 検索 = ActiveSheet.Range(Cells(1, tmp2), Cells(LR, tmp2)).Find(what:=list(i), LookAt:=xlWhole, LookIn:=xlValues)
If Not 検索 Is Nothing Then
StartAD = 検索.Address
Do
Cells(検索.Row, tmp2).FillDown
Set 検索 = ActiveSheet.Range(Cells(1, tmp2), Cells(LR, tmp2)).FindNext(検索)
Loop While Not 検索 Is Nothing And 検索.Address <> StartAD
Else
End If
Next i
End Sub
