|
初心者ですがVBAに関するコードの事で、質問があります。
セル"A1"〜"E10"までをRangeオブジェクト(Range1)へ格納し、
「.Findメソッド」で検索条件に一致した、Rangeを(Range2)へ格納します。
質問:
格納されたRangeオブジェクト(Range2)から、別のRangeオブジェクト(Range3)へ、"C3"〜"C10"をセットしたいと思いますが、難航しています。
---------コード--------------------------------------------
Set Range1 = Worksheets1.Range("A1:E10")
Set Range2 = Range1.Find([検索条件], LookAt:=xlWhole)
If Not Range2 Is Nothing Then
Set Range3 = Range2.Offset(0).EntireRow
↑ここでは「C行」の行全体(C1〜C10)となる
End If
-----------------------------------------------------------
「.EntireRow」を用いた場合、行すべてになってしまい希望の処理に沿いません。
尚、Range1はどうしても、Worksheets1.Range("A1:E10")を格納しておきたいのです。
"C3"〜"C10"を指定しRange3へセットする、
Rangeオブジェクトの便利なプロパティなど、よい方法はありますか?
|
|