|
While って使ったことが無いので、Untilに変えたけど。
こんな感じなのかな?
それとFindって、読みで検索するようなのか、しているのか解らないところがあるから、
引数は、省略しない方がいいと思います。
かつ、検索文字は、変数に入れた方がいいのかも。
lastRow = dstWS.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lastRow
st = dstWS.Cells(i, "A").Value
If st <> "" Then
Set r = srcWS.Columns(1).Find(what:=st, lookat:=xlWhole)
If Not r Is Nothing Then
SaveAd = r.address
Do
dstWS.Cells(i, "B").Value = dstWS.Cells(i, "B").Value & "/" & r.AddressLocal(1, 6536)
Set r = srcWS.Columns(1).FindNext(r)
Loop until SaveAd = r.Address
End If
End If
Next
|
|