| |
▼質問者（初心者Ｓ） さん：
>シート上に複数物件がある場合うまく行かなく悩んでいる為
>方法があれば教えて下さい。
▼Loopのなかで Findを2回使う
Set Row1 = 検索範囲.Find("物件名：",,xlFormulas,xlPart)
Set Row2 = 検索範囲.Find("コード",Row1,xlFormulas,xlPart)
とか、
▼配列に入れて If文で判断でしょうか？
' ('A列にデータがあると仮定しています)
Dim v, i As Long, j As Long, k As Long
v = Range("A1", Range("A65536").End(xlUp)).Value
For i = 1 To UBound(v)
If v(i, 1) Like "物件名：*" Then
For j = i + 1 To UBound(v)
If v(j, 1) Like "コード：*" Then
k = k + 1
Debug.Print i; "〜"; j; "まで"; v(j, 1), "行間"; j - i
i = j
Exit For
End If
Next
End If
Next
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
