Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70500 / 76782

←次へ　｜　前へ→


	【10788】Re:合計をだすマクロ

Asaki - 04/2/13(金) 22:54 -


	引用なし

	パスワード

1行目を基準に考えると、入力されている最後(一番右)のセルは
Ragne("IV1").End(xlToLeft)
で取得できます。

私が提示した例では、数式を設定する方法ですので、これは一気に代入できますので、
Sub test()
　　Dim lngCol　　　　　 As Long

　　lngCol = Range("IV1").End(xlToLeft).Column
　　With Range("A65536").End(xlUp)
　　　　.Offset(2).Resize(, lngCol).Formula = "=SUM(A1:" & .Address(False, False) & ")"
　　　　.Offset(2).Resize(, lngCol).Value = .Offset(2).Resize(, lngCol).Value
　　End With
End Sub

オートフィルを使うのであれば、数式を設定した直後にオートフィルしてから、値を確定します。

2 hits

▼

【10775】合計をだすマクロ RanRan 04/2/13(金) 15:09