[[20050311102428]]　『最終行まで下方コピー』（むにゅ）　ページの最後に飛ぶ

『最終行まで下方コピー』（むにゅ）

下記のマクロを自動記録を使ったのですが、
下から２行目のSelection.AutoFill Destination:=Range("F5:F12")を範囲指定ではなくE行の最終行までコピーをできるように指定したいのですができますでしょうか？

F5に関数を入力してセルの右端をダブルクリックしたマクロの記録
↓

　　Range("F5").Select

    ActiveCell.FormulaR1C1 = "=EOMONTH(RC[-1],0)"
    Range("F5").Select
    Selection.AutoFill Destination:=Range("F5:F12")
    Range("F5:F12").Select

End Sub

 途中に空白が無ければ

 Set MyRange = Range(Range("E5"), Range("E5").End(xlDown))
 Range("E5").AutoFill Destination:=MyRange

 で、どうでしょうか。

 （川野鮎太郎）

 お邪魔します。。
Option Explicit
Sub てすと()
With Worksheets("sheet1")
    .Range("F5", .Range("F65536").End(xlUp)).Formula = "=EOMONTH(E5,0)"
End With
End Sub
で、どうでしょうか？
（SoulMan）

ご回答ありがとうございました。
こちらの説明不足のせいか思ったように動作できませんでした。
アフォですみませんです。

今はE5からE14（最終行は増えたり減ったりして変わります）に日付が入っており、
その横のF5に「=EOMONTH(E5,0)」を入力してE行の最終行までF行をコピーをしたいのです。

もしどなたかわかる方がいらっしゃればお願いいたします。ｎ(_ _)ｎ（むにゅ）

 こうかな？？
Sub てすと()
With Worksheets("sheet1")
    .Range("E5", .Range("E65536").End(xlUp)).Offset(, 1).Formula = "=EOMONTH(E5,0)"
End With
End Sub
（SoulMan）

 むにゅさんのコードを出来るだけ尊重して、以下のような考え方でどうでしょうか。
　
Sub Test()
    Range("F5").FormulaR1C1 = "=EOMONTH(RC[-1],0)"  'F5に式を入力
    LastRow = Range("E65536").End(xlUp).Row         'E列の最終行取得
    Set MyRange = Range("F5:F" & LastRow)           'F5からEの最終行のF列までをセット
    Range("F5").AutoFill Destination:=MyRange       'F5のデータをセットした範囲までフィルコピー
End Sub

 （川野鮎太郎）

お二人様のを両方とも確認して両方とも出来ました！
実際にはU行で使用するのでちょこっと書き直しても問題ありませんでした！

どちらを使うか悩みちう（贅沢な悩み）

貴重なお時間を割いていただきありがとうございました（むに）

コメント返信：

[ 一覧(最新更新順) ]

[[20050311102428]] 『最終行まで下方コピー』（むにゅ） ページの最後に飛ぶ

[[20050311102428]]　『最終行まで下方コピー』（むにゅ）　ページの最後に飛ぶ