エクセルでのマクロについての質問です

質問

毎日行数の違うデータの隣に数式を入力してフィルでコピーしていますが簡易のマクロを組んでみました。ですが行数が変わるためマクロ登録した時の行数までしか数式がコピーされません。
画面１のようにＣ１、Ｄ１セルの数式をフィルでコピーしたマクロを登録しました。画面２のようにデータが多くなるとＣ５、Ｄ５までしかコピーされません。最初はＣ１、Ｄ１だけに数式を入力してマクロ実行後、フィルでコピーしていましたが面倒な為、現在は行数を多く設定していますが無駄に数式が入るためにデーターが重くなります。マクロでＢ列の最下セルを検索しその列までＣ，Ｄセルをコピーというなマクロが出来るなら教えて頂きたいです。ＶＢＡの知識を必要とすると思いますがよろしくお願いします。

回答No.2

myRange · ベストアンサー

簡単なのを２つほど。

（１）セルC1:D1を最終セルまで単純にコピーする方法
------------------------------------------------------
Sub Test222()
　Range("C1:D1").Copy Range("C2:D" & Cells(Rows.Count, "A").End(xlUp).Row)
End Sub
----------------------------------------------------

（２）セルC1:D1をフィルドラッグしてのコピー方法
--------------------------------------------------
Sub Test333()
　Dim myRange As Range
　Set myRange = Range("C1:D" & Cells(Rows.Count, "A").End(xlUp).Row)
　Range("C1:D1").AutoFill Destination:=myRange, Type:=xlFillDefault
End Sub
-------------------------------------------------

（１）の単純なコピーが簡単ですね。
以上です。

お礼

Range("C1:D1").Copy Range("C2:D" & Cells(Rows.Count, "A").End(xlUp).Row)
なるほどです。勉強不足でした。ありがとうございました。

回答No.5

imogasi

＞現在は行数を多く設定していますが
との関連で
例えば
=IF(G7="","","A")　＜－第７行目に
で見た目は空白でも、式を入れていると
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
End Sub
は７になってしまうので注意。
Sub test02()
MsgBox Range("A1").CurrentRegion.Rows.Count
End Sub
でも同じ。UsedRangeでも同じ。

回答No.4

Wendy02

こんにちは。

右側に隣接したセルの場合は、左側のセルに対してオートフィルのショートカットが働きます。試してみてください。

C1 、D1
+--------+
|　数　式　 |
+--------+ ←ここをダブルクリック
数式のセルの右下をダブルクリックすれば、数式はコピーされます。

回答No.3

hige_082

すでに回答が出てるので、参考に２つ

Sub test()
Range("c1", "d" & Cells(Rows.Count, 1).End(xlUp).Row).Formula = Range("c1:d1").Formula
End Sub

Sub test_2()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Range("c1:d1").Copy Cells(i, 3)
Next i
End Sub

お礼

色々あるんですね。勉強になりました。ありがとうです。

回答No.1

j38

Bセルの最終行(10)を算出するには、以下でいけると思います。
繰り返しの終わりの判定値に使えば良いと思われます。

Cells(Rows.Count, 2).End(xlUp).Row

お礼

繰り返しの終わりの判定値、勉強になりました。ありがどうです。