|
こんにちは。かみちゃん です。
> 実際は行と列が上の間隔(位置関係)です。
> 応用がきかなくてすみません。
応用が利かせられないのなら、最初からきちんとサンプルを示しましょうね。
別に隠すような内容ではないように思います。
で、以下のようにします。
何が変わったかわかるように前回のコードは、コメント文にして残してあります。
Sub Sample2()
Dim FR As Range
Dim rngBase As Range
'基準セルの設定
' Set rngBase = Range("A1")
Set rngBase = Range("B2")
With rngBase
' With Range(.Offset(1), .Offset(Rows.Count - .Row).End(xlUp))
With Range(.Offset(4, -1), .Offset(Rows.Count - .Row, -1).End(xlUp))
Set FR = .Find(rngBase.Value, , xlValues, xlWhole)
End With
If Not FR Is Nothing Then
' Range(FR.Offset(, .Offset(, 3).Value), FR.Offset(, .Offset(, 4).Value)).Select
Range(FR.Offset(, .Offset(, 6).Value), FR.Offset(, .Offset(, 8).Value)).Select
Else
MsgBox "見つかりません" & vbCrLf & .Value
End If
End With
End Sub
※シートイメージを提示されるときは、投稿欄の右下にある「等幅」にチェックを
つけると見やすくなりますよ。
|
|