|
1列のみのオートフィルについて教えてください。
("H2")に数式が入っています。以下は空白です。
隣の列のG列(毎回件数が違います)の最終行に合わせて、
その数式が入るようにしたいのですが失敗してしまいます。
以下のようにしましたが、
-------------------------------------------------------------------------
Dim LastRow As Long
-------------------------------------------------------------------------
Range("H2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[1]"
Range("H2").Select
LastRow = Range("G" & Rows.Count).End(xlUp).Row 'G列のラスト行の値
Range("H2").Select
Range("H2").AutoFill Destination:=Range("H2" & LastRow)
-------------------------------------------------------------------------
Selection.AutoFill Destination:=Range("H2:LastRow")
Range("H2:LastRow").Select
-------------------------------------------------------------------------
Range("H2").Select
Selection.Copy
Range("H3:LastRow").Select
ActiveSheet.Paste
-------------------------------------------------------------------------
実行時エラー'1004'
RangeクラスのAutofillメソッドが失敗しました。
と出てしまいます。
Range("H2").AutoFill Destination:=Range("H2" & LastRow)
ここで引っ掛かります。
ご教授願います。
|
|