列の最終行までのセルと1つ隣のセルの合計を別の列に表示

A列に数字が入力されています。
B列にも数字が入力されています。
桁数は決まっていません、0が入力されている場合もあります。
A列とB列の数字が入力されている行の数は常に等しいです。
データ数は10行かもしれませんし100万行かもしれません。


データはA8、B8以降から始まります。
A,B列の最終行まで、A,B列の合計をN列に出したいです。

例えば、A100とB100の合計をN100に
A101とB101の合計をN101に、、、、といった感じです。

以前は関数で行っていましたが行がとても増えてしまい、VBAで行いたいです。
お詳しい方、宜しくお願いいたします。

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/07/13 05:22

Sub try()

Dim d As Double

d = Timer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With Range("A8", Cells(Rows.Count, "A").End(xlUp)).Offset(, 13)
.Formula = "=SUM(A8:B8)"
.Value = .Value
End With

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

MsgBox Timer - d
End Sub

１００万行で5秒弱です。
古いハードなので遅いかな。

この回答へのお礼

ありがとうございます！タイマーってあるんですね。おもしろいです！
勉強になりました❗

お礼日時：2022/07/15 07:57

No.1 回答者： rexfan 回答日時： 2022/07/12 20:20

エクセルで100万行は無理ですが

sub test

Range(Range("a8"), Range("a" & Rows.Count).End(xlUp)).Select
n = 8
for each rg in selection
cells(n,"l") = cells(n,"a") +cells(n,"b")
n = n+1
next
end sub

この回答へのお礼

ありがとうございます！
助かりました！

お礼日時：2022/07/15 07:58