エクセル（2003）のVBAに関する質問です。

質問

エクセル（2003）のVBAに関する質問です。
例えば、B列からW列のある特定の行数までの表があるとします。
表の一番下の行（B列からW列）を368行までオートフィルを行うマクロを
以下のように考えましたが実行時エラーがでてしまいます。

Private Sub Workbook_Open()
Dim rng As Range
Set rng = Cells(Rows.Count, "B").End(xlUp).Resize(1, 21)
rng.AutoFill Destination:=Range(rng, "W368"), Type:=xlFillSeries
End Sub

初歩的な質問で恐縮ですが、ぜひ解決方法を教えて下さい。

回答No.3

end-u · ベストアンサー

>B列からW列
までだったら22列あります。
rngの列数とRange(rng, "W368")の列数が違ってるためエラーになってます。
また、Range(rng, "W368")でもいいですけど、気分的にはRange(rng(1), "W368")がしっくりくるかな...

あと余談ですが、シートを指定してないのでOpen時にActiveだったシートが対象になりますけどその仕様でいいのでしょうか？
例えば
Dim rng As Range
With Sheets("Sheet1") 'とかActivesheetとか。
　　Set rng = .Cells(.Rows.Count, "B").End(xlUp).Resize(1, 22)
　　If rng.Row <> 368 Then
　　　　rng.AutoFill Destination:=.Range(rng.Item(1), "W368"), Type:=xlFillSeries
　　End If
End With
Set rng = Nothing
こんな感じでシートを明示しておいたほうが良いです。

お礼

良く見ると1列隠れていました。
ご指導ありがとうございました。

回答No.2

nattocurry

Range(rng, "W368")
こんな書き方はありません。

回答No.1

karasuyasa-

操作でも実行できそうなので、マクロの記録をしてそれを元に改造すればいいのではないでしょうか。