こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【Excel2002VBA】Destinationを変数に

Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries
Range("A1:A10").Select

の2行目のDestinationの次のセル範囲(Range("A1:A10")の部分)
を変数で表現したいのですが
書き方が分かりません…
ご存知の方、どうか教えてくださいm(_ _)m

投稿日時 - 2009-11-09 22:58:37

QNo.5435266

すぐに回答ほしいです

質問者が選んだベストアンサー

Cells(x,y)のxが行だったか列だったか、今ちょっと確認できないのですが、
Range(Cells(x1,y1),Cells(x2,y2))
のような感じで指定してやればよいのではないでしょいか。
列がAで固定なのであれば
Range("A1:A" & CStr(x))
のようなやり方もできます。

投稿日時 - 2009-11-10 01:07:42

お礼

Range(Cells(x1,y1),Cells(x2,y2))を参考にしてできました!
回答ありがとうございました。

投稿日時 - 2009-11-10 06:29:10

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

>Range("A1").Select
>Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries
>Range("A1:A10").Select

dim Rng as range
set Rng = range("a1:a10")
range("a1").select
selection.autofill destination:= Rng
Rng.select

こんな感じでしょうか

投稿日時 - 2009-11-09 23:21:34

お礼

回答ありがとうございます。
ごめんなさい、私の説明不足でした…
行番号の中には配列と、さらにその中に
カウンタの中で値が変わる変数が入ります…

投稿日時 - 2009-11-10 06:32:21