最終行が常に変わる為、 どのようにマクロを書けばよいかご教示ください。 5行目が見出しです。 6行目

最終行が常に変わる為、
どのようにマクロを書けばよいかご教示ください。

5行目が見出しです。
6行目からデータが入力されています。
F列の最終行の一つ下に
=E列最終セル÷D列最終セル としたいです。
D列とE列最終セルには各列の合計値が入力されています。
「F列の最終行の一つ下」は
D列、E列の最終セルと同じ行になります。

よろしくお願いします。

No.2 ベストアンサー 回答者： t_fumiaki 回答日時： 2017/04/30 13:02

.Valueを忘れた

例

D列最終=ActiveSheet.Range("D65536").End(xlUp).Row
E列最終=ActiveSheet.Range("E65536").End(xlUp).Row
F列最終=ActiveSheet.Range("F65536").End(xlUp).Row

ActiveSheet.Range("F" & F列最終+1).Value=
ActiveSheet.Range("D" & D列最終).Value/ActiveSheet.Range("E" & E列最終).Value

この回答へのお礼

迅速な対応に感謝します。
ありがとうございました。

お礼日時：2017/04/30 13:59

No.1 回答者： t_fumiaki 回答日時： 2017/04/30 13:01

例

D列最終=ActiveSheet.Range("D65536").End(xlUp).Row
E列最終=ActiveSheet.Range("E65536").End(xlUp).Row
F列最終=ActiveSheet.Range("F65536").End(xlUp).Row

ActiveSheet.Range("F" & F列最終+1)=
ActiveSheet.Range("D" & D列最終)/ActiveSheet.Range("E" & E列最終)