データの最終行まで計算式をコピーするマクロ

質問

エクセル2013を使用しています。

A列2行からとB列2行から各々　データ行が数百行あり、

C列2行に計算式を入力。

セルの右下フィルハンドルをダブルクリックすると、

例　C2:C600 の固定範囲で計算式がコピーできますが、

毎回このデータ行数が変わります。

計算式はあと4つありますので全部で5回繰り返しとなります。

マクロで最終行を検索してデータの最終行を見つけてコピーするように
したいのです。

表のイメージ

　　　　A 　　 B 　 　C 　 　D 　 　E 　　F 　　G 　　H 　　　　I 　　J 　　K 　　L 　　M
1　　data　 datb 計算式1　　　　　　　　　　　　　計算式　計算式　計算式　　　　　　　　　　計算式
2　　　　↓　　　　　　　　↓
3
｜
600　data datb 計算式

回答No.1

keithin · ベストアンサー

＞毎回このデータ行数が変わります

あなたの意図している「最後のデータ行」というのが、具体的にどういうのかによって適切な方法は変わります。
一番基本的には、
１．Ａ列（やＢ列）に生データを記入している
２．例えばＡ列に、一番下の生データが入ってるところが最終行である
３．その更に下のセルは、完全空っぽのセルがずっと続いている
という状況になります。

＃Ａ列やＢ列が実際にはよそのどこかからデータを参照して「計算式でデータを表示してる」とかだと、また違う工夫をしなきゃなりません。

また今「コピーしたい」というお話になってますが、コピー元（タネとでも言いますか）が２行目に既に記入済みなのかどうか、いったいどういう使い方を想定してるのかもちょっと曖昧です。

ご相談の直接の回答としては：
sub macro1()
　dim LastRow as long
　lastrow = range("A65536").end(xlup).row
　range("C2:C" & lastrow).filldown
　range("H2:J" & lastrow).filldown
　range("M2:M" & lastrow).filldown
end sub

あるいはわざわざタネを用意しておいてそれをコピーとかじゃなく、マクロに最初っから所定の数式を上書き記入させてしまうのも一つの方法です：
sub macro2()
dim LastRow as long
　lastrow = cells(rows.count, "A").end(xlup).row
　range("C2:M65536").clearcontents
　range("C2:C" & lastrow).formula = "=SUM(A2:B2)"　’例
　range("H2:H" & lastrow).formula = "=C2*2"
　range("I2:I" & lastrow).formula = "=H2+1"
　range("J2:J" & lastrow).formula = "=I2/3"
　range("M2:M" & lastrow).formula = "=SUM(C$2:C2)"
end sub

＃ていうか通常のエクセルの使い方としては、所定の列に最初から「たくさんの行」に事前に数式を埋めておき、Ａ列なりＢ列にデータが入ったら計算結果が現れるように仕込んでおけば、わざわざマクロを持ち出す必要もありませんが。

Ｃ２：
=IF(B2="","",A2+B2)
以下沢山事前にコピーしておく
Ａ２のあとＢ２にデータを入れると計算結果が現れる
みたいな。

お礼

ご丁寧に回答していただきありがとうございました。

参考になったのは「マクロなし計算式で」というアドバイスです。

担当者が数年で変わったときを考えて手作業の間違いをなくす

目的でマクロで自動化はどうかとはじめてみました。

計算式をたくさん用意しておいてやってきたデータを貼り付ける

というのは「まちぶせ式」と名づけさせていただきます。

重ねて御礼申し上げます。

回答No.2

mk48a

選択したい範囲の左上を選択して、「Ctrl」 ＋「 Shift」キーを押しながら矢印キーの右と下を何回か押すとマクロを使わなくても希望の範囲が選択できると思うのですが。
選択範囲が飛びすぎる場合は「Shift」キーのみで1行ずつ追加してみてください。

先に行を選択して必要なだけ列を追加するのが楽かも。

お礼

アドバイスありがとうございます。

ショートカットキーは便利に日常つかっています。

フィルハンドルでダブルクリック貼り付けで対応していますので

最終行やデータ最終行へ戻ることは毎日やっております。

（相談の文章では伝わらないようです）

ならなにも問題ないのでは？と言われてしまいそうですね。

ご親切にありがとうございました。