質問: VBAに詳しい方ご教授お願い致します。 TestAAA~TestBBB間の文字を別シートに表示させる場合、 どういったVBA設定になるかご教授頂けないでしょうか。
回答: <要件> "あるシート"の"ある列"から、文字列"TestAAA"と文字列"TextBBB"を探し、 その二つに挟まれたセルの範囲を”別シート"の"A2"以下に貼り付ける <ソースコード> Option Explicit Const あるシート$ = "Sheet1" Const 別シート$ = "Sheet2" Const ある列$ = "A" Const 検索値1$ = "Test AAA" Const 検索値2$ = "Test BBB" Sub hoge() Dim searchIn As Range Set searchIn = Worksheets(あるシート).Range(ある列 & ":" & ある列) Dim top As Range, bottom As Range Set top = searchIn.Find(検索値1) If top Is Nothing Then MsgBox 検索値1 & " NOT FOUND": Exit Sub Set bottom = searchIn.Find(検索値2) If bottom Is Nothing Then MsgBox 検索値2 & " NOT FOUND": Exit Sub Worksheets(あるシート).Range(top, bottom).Copy Worksheets(別シート).Range("A2") End Sub