[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『最終行までオートフィル』(素人)
オートフィルでお知恵を拝借できればと思っております。
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.