Cellsの引数に特定セルに入力されている数値を指定したい(エクセル2007VBA)

Cellsの引数に特定セルに入力されている数値を指定したい(エクセル2007VBA) 例えば、 Range(Cells(D1セルに入力されている数値, 1), Cells(F1セルに入力されている数値, 3)) というような感じです。 VBA及びプログラミング初心者です。回答お願いしますm(_ _)m

Visual Basic413閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

(例1) Range(Cells(Range("D1").Value, 1), Cells(Range("F1").Value, 3)) (例2)変数を使ってみます。 Dim rw1 As Long Dim rw2 As Long rw1 = Range("D1").Value rw2 = Range("F1").Value Range(Cells(rw1, 1), Cells(rw2, 3)).Copy Sheets("Sheet2").Range("A1") Range、Cells共にシート名を省略した場合Activesheetになります。 (例2)は rw1 = Activesheet.Range("D1").Value rw2 = Activesheet.Range("F1").Value Activesheet.Range(Activesheet.Cells(rw1, 1), Activesheet.Cells(rw2, 3)).Copy Sheets("Sheet2").Range("A1") といった意味です。

ThanksImg質問者からのお礼コメント

できました! 複数のやり方まで示していただき、ありがとうございましたm(_ _)m

お礼日時:2012/10/28 12:39