質問: "=sum(" & range(cells(1, activecell.column), cells(activecell.row - 1, activecell.column)).address(false, false) & ")" end sub これも可能ですか?私が見たところ、それは可能であるはずですが、マクロにそれをさせるのは非常に難しいです。
回答: そして、本当にマクロが必要な場合は、これを使用してください(主に ここ から取得、いくつかの改善があります):option explicit sub autosum() const sourcerange = "c:f" dim numrange as range, formulacell as range dim sumaddr as string dim c as long for each numrange in columns(sourcerange).specialcells(xlconstants, xlnumbers).areas sumaddr = numrange.address(false, false) set formulacell = numrange.offset(numrange.count, 0).resize(1, 1) formulacell.formula = "=sum(" & sumaddr & ")" 'change formatting to your liking: formulacell.font.bold = true formulacell.font.color = rgb(255, 0, 0) c = numrange.count next numrange end sub これは、列cからfの数値で機能し、コードの先頭で必要な他の範囲(定数sourcerange)に変更します。数字の領域が互いに接触しないように注意してください。