VBAについて教えて下さい。 例えば、A2からD2に入っている関数を A100.D100まで一括でコ

VBAについて教えて下さい。
例えば、A2からD2に入っている関数を
A100.D100まで一括でコピーするには、
どの様に組んだら良いですか？
お願いします。

質問者からの補足コメント

• 最後の行が1000だった場合は、どの様になりますか？

    補足日時：2023/04/19 03:54

No.1 回答者： くんこば 回答日時： 2023/04/19 01:37

VBAを使用してA2からD2に入っている関数をA100.D100まで一括でコピーするには、以下のようなコードを使用できます。

Sub CopyFormulas()
Dim lastRow As Long
lastRow = 100 ' 最後の行を指定

Range("A2:D2").AutoFill Destination:=Range("A2:D" & lastRow), Type:=xlFillFormulas
End Sub

このコードでは、lastRow変数を使用して最後の行を指定し、Rangeオブジェクトを使用してコピー元の範囲とコピー先の範囲を指定します。そして、AutoFillメソッドを使用して、関数を一括でコピーしています。

注意点として、コピー先の範囲がコピー元の範囲と同じ行である場合、AutoFillメソッドでは最初の行だけがコピーされます。そのため、コピー先の範囲を指定する際には、最後の行を指定する必要があります。

この回答へのお礼

ありがとうございます！
出来ました！
勉強させてもらいます！

お礼日時：2023/04/19 03:14