社会人&学生におすすめする色彩検定の勉強術

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


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

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

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

教えて!goo グレード

A 回答 (2件)

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

100万行で5秒弱です。
古いハードなので遅いかな。
    • good
    • 1
この回答へのお礼

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

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

エクセルで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
    • good
    • 1
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング