[[20140410174416]]　『最終行までオートフィル』（素人）　ページの最後に飛ぶ

『最終行までオートフィル』（素人）

オートフィルでお知恵を拝借できればと思っております。

A列からB列にデータが入っており、C列に数式を入力したいと考えています。

たとえば
　　　　A列　　　　B列　　　　C列
1行　　 12　　　 24
2行　　25 　　　 13
3行　　 15 　　　 63

というファイルのC1セルに=A1+B1という計算式を入れてC3セルまでオートフィルで埋めようとして下記コードで対応しています。

Selection.AutoFill Destination:=Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row)

しかし、下記のようにデータが1行しかない場合、

　　　　A列　　　　B列　　　　C列
1行　　　 12　　　 24

上記のコードでエラーが出てしまいます。
これを回避する方法はあるでしょうか。

それとも不可避のエラーであって、全く別のコードにしなければならないのでしょうか。
教えていただけると幸いです。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 条件判定してもいいですけれど、こんなんでどうでしょうか。
 Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=RC[-2]+RC[-1]"

 規定の式を使用するのであれば、Cells(Rows.Count, "A").End(xlUp).Row が
 2以上のときだけ実行するように IF 文を追加すればいいのではないでしょうか。
（Mook） 2014/04/10(木) 19:03

ありがとうございます。

Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=RC[-2]+RC[-1]"

では上手く動きませんでした。
IF文を追加するしかないんでしょうか。
（素人） 2014/04/11(金) 11:21

すみません。
IFで対応して自己解決致しました。
ありがとうございました。
（素人） 2014/04/11(金) 11:53

コメント返信：