[[20240726110521]]　『VBA　合計値の出し方について』（ととと）　ページの最後に飛ぶ

『VBA　合計値の出し方について』（ととと）

変数を使い、値が入力されている最終行を取得し、値が入力されている行（U列）の合計を出す文を作成したいです。
合計を出す場所　セルG4

    Dim i As Long, u As Range
    For i = 5 To Cells(Rows.Count, 6).End(xlUp).Row
       Cells(i, 13) = Application.Sum

ここまでは作成できるのですが、これ以降に何と書いて良いかわからず、お力を貸していいただきたいです。
※補足
別のセルに合計値をExcel関数で求めて、そこを参照させる方法もあるかと思いますが、一個前の作業で不要な行を削除する文があるため、変数を使っている次第です。

＜使用 Excel：Excel2021、使用 OS：Windows11 ＞

 おちついて何がしたいのかを書いてください。

 言葉での説明とコードが整合してません

 コードを見る限り、このコードは

　5行目から6列（F列）の最終行まで繰り返し
　各行の13列(M列)に合計を入力する　←　どこの合計を求めるかは書いてない

 と読めます
（´・ω・`） 2024/07/26(金) 11:23:38

大変失礼いたしました。

合計を出したい場所はセルG4です。
また、求めたいのはU列の値が入力されている最終行までです。

range("g4") = Application.Sum(?)
この？に何をいれたらいいか分からないです。

（ととと） 2024/07/26(金) 11:42:32

Range("u:u").SpecialCells(2, 1)

とかでも。。。←　多分。。。^^;

シートは指定された方がなにかと。。。いいかも
余計なお世話でしたらお許しを
m(__)m
（隠居Z） 2024/07/26(金) 12:24:11

 SUMの中には、Rangeオブジェクトをいれられるので
 Sub sample0()
   Range("G4").Value = Application.Sum(Range("U1", Cells(Rows.Count, "U").End(xlUp)))
 End Sub
 とか
 Application.Sumという書き方は古いので、
 Sub sample1()
   Range("G4").Value = WorksheetFunction.Sum(Range("U1", Cells(Rows.Count, "U").End(xlUp)))
 End Sub
 とか
 Sub sample2()
   Range("G4").Formula = "=SUM(" & Range("U1", Cells(Rows.Count, "U").End(xlUp)).Address & ")"
 End Sub
 と数式をいれたり
（´・ω・`） 2024/07/26(金) 12:28:43

隠居Zさま、´・ω・`さま

無事に合計を出すことができました。
ありがとうございます。
（ととと） 2024/07/26(金) 12:35:40

 たぶん、列全体でも同じ結果
 Range("G4").Value = WorksheetFunction.Sum(RColumns("U"))
（マナ） 2024/07/26(金) 12:41:00

書いている間に話が終わってましたが、投稿しておきます。

補足説明を読んでもいまいち理解できません。
やりたいことを箇条書きで書けませんか？

 【記載例】
 ・合計を出力したいセル「G4」
 ・合計したい範囲「F4」～「F列のU列最終セルの行」（ただし、U列最終セルの行番号が4未満のときは処理しない）

 【上記をコードにした場合】
    Sub test()
        Dim 最終行 As Long

        With ActiveSheet
            最終行 = .Cells(.Rows.Count, "U").End(xlUp).Row

            If 最終行 >= 4 Then
                .Range("G4").Formula = "=SUM(F4:F" & 最終行 & ")"
                '.Range("G4").Value = Application.Sum(.Range("F4:F" & 最終行))
            End If
        End With
    End Sub

（もこな２） 2024/07/26(金) 12:45:42

コメント返信：

[ 一覧(最新更新順) ]

[[20240726110521]] 『VBA 合計値の出し方について』（ととと） ページの最後に飛ぶ

[[20240726110521]]　『VBA　合計値の出し方について』（ととと）　ページの最後に飛ぶ