1行目はタイトル行 2行目からデータが入っています。 M2 に数式が入っています。 その数式をA列の

1行目はタイトル行
2行目からデータが入っています。

M2 に数式が入っています。
その数式をA列の最終行まで
オートフィルするマクロを教えてください。

ただし、2行目のデータが無い場合や
2行目しかデータが無い場合があるので
その時はオートフィルしないで
次の処理をするマクロとしたいです。

エクセル2013

宜しくお願い致します。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2018/09/28 10:23

こんにちは

＞ただし、2行目のデータが無い場合や
は、M2セルの値の意味と解釈しました。

※ 前後関係や変数の命名がどうなっているのか不明なので、以下のサンプルでは、中間変数を使用しない形式で記述してあります。
このため、効率は必ずしも良くはありません。
（一旦、値を変数に代入して処理する方が効率が良いですし、視認性もよくなるでしょう）
※ TargetSheetは対象とするシートを示すオブジェクトと仮定しています。

With TargetSheet
　If .Cells(Rows.Count, 1).End(xlUp).Row > 2 And .Cells(2, 13).HasFormula Then
　　.Cells(2, 13).AutoFill Destination:=.Cells(2, 13).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1)
　End If
End With

No.2 回答者： tom04 回答日時： 2018/09/28 10:49

こんにちは！

すでに回答は出ていますので、参考程度で・・・

Sub Sample1()
　Dim lastRow As Long
　　lastRow = Cells(Rows.Count, "A").End(xlUp).Row
　　If Range("M2") <> "" And Range("M2").HasFormula Then
　　　Range(Cells(2, "M"), Cells(lastRow, "M")).Formula = Range("M2").Formula
　　End If
End Sub

こんな感じでも大丈夫だと思います。m(_ _)m

この回答へのお礼

ありがとうございました

お礼日時：2018/09/30 16:21