|
ラッキーさん、りんさん、こんにちは。
横レス失礼します,
詳細がわかりませんが...。
Sub ebi()
Dim CelA As Range, CelB As Range, RagAB As Variant
Set CelA = Columns("A").Find("80", After:=Range("A" & Rows.Count), _
LookAt:=xlWhole, MatchCase:=True)
Set CelB = Columns("A").Find("B5", After:=Range("A" & Rows.Count), _
LookAt:=xlWhole, MatchCase:=True)
If Not CelA Is Nothing And Not CelB Is Nothing Then
RagAB = Range(CelA, CelB).Offset(, 1).Value
Range("D1").Resize(UBound(RagAB)).Value = RagAB
Erase RagAB
else
msgbox "見つかりませんでした。"
End If
Set CelA = Nothing
Set CelB = Nothing
End Sub
|
|