EXCEL ２つの決まった文字列の間を自動的に範囲選択

下のような表があるとします。
　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ
１　いか
２　たこ
・　
・
・
８　たい
９　ひらめ

この中からＡ行にある”たこ”（Ａ２）という文字列を検索して、そこから”たい”（Ａ８）という文字列のある右５行のＦ行まで（Ａ２：Ｆ８）を自動的に範囲選択するような、決まった行にある決まった２つの文字列の間＋決まった行までを範囲選択するマクロを作りたいのですが上手く行きません。
何卒、お知恵をお貸し下さい。

No.3 ベストアンサー 回答者： nishi6 回答日時： 2002/09/22 19:41

質問の意味とあっているか疑問ですが、参考例です。

Sub areaSelect()
　　Dim startRg As Range '最初のセル
　　Dim endRg As Range '最後のセル

　　Set startRg = Range("A:A").Find("たこ")
　　Set endRg = Range("A:A").Find("たい")

　　With startRg
　　　　Range(.Offset(0, 0), .Offset(endRg.Row - .Row, 5)).Select
　　End With
End Sub

この回答へのお礼

ありがとうございます。上手く行きました。
単純な事とは思いながら、動いてくれなくて困ってました。勉強になりました。
本当にありがとうございます。

お礼日時：2002/09/23 19:35

No.2 回答者： imogasi 回答日時： 2002/09/22 19:32

sheet1の任意のセルにaとbを入れた時、そのセルを対角２隅

とする範囲を選択します。
Sub test01()
Dim a As Range
Set a = Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
x = a.Row
y = a.Column
Set a = Cells.Find(What:="b", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
u = a.Row
v = a.Column
Range(Cells(x, y), Cells(u, v)).Select
End Sub

この回答へのお礼

ありがとうございます。ちょっとだけ質問の意味と違いましたが、別のことで使えそうです。メモメモ。
本当にありがとうございます。今回は２番手という事でご勘弁を。(^^;

お礼日時：2002/09/23 19:41

No.1 回答者： kazuhiko5681 回答日時： 2002/09/22 18:49

はじめまして。

２つの文字列というのは、例えば"たこ"と"たい"というように文字が決まっているのですか。それとも"いか"と"ひらめ"とか"たこ"と"ひらめ"というように、任意の２文字を使いたいのですか。それによってコードが違ってきます。
その点についてお知らせ下さい。私でよろしければ、サンプルマクロを作ってみたいと思います。
お手数をおかけいたしますが、よろしくお願いいたします。

この回答へのお礼

スミマセン。決まった文字で任意の文字ではなかったのですが、私が書き込みをする前に、他に回答が出てしまいました。
お気を遣っていただき、本当にありがとうございます。

お礼日時：2002/09/23 19:45