自动为一列不确定长度的列求和

小女孩 · 发表于 2024-10-8 16:04

求助.rar (7.45 KB, 下载次数: 13) 就是A2到最后有数字的单元格，求和，放到最后。关键是A列长度不确定，去各位老师帮写一下，谢谢！

chxw68 · 发表于 2024-10-8 16:11

这个用公式更方便吧。

sxbjzjf110 · 发表于 2024-10-8 16:15

Qs18 · 发表于 2024-10-8 16:16

Sub qs()
Dim arr, i
With Sheet1
r = .Cells(Rows.Count, 1).End(3).Row
arr = .Range("a1").Resize(r, 1).Value
sm = Application.Sum(Application.Index(arr, 0, 1))
.Range("a" & r + 1).Value = sm
End With
End Sub

复制代码

Qs18 · 发表于 2024-10-8 16:18

试试.............

Qs18 · 发表于 2024-10-8 16:19

试试............

autohotey · 发表于 2024-10-8 16:36

公式法：
1，手动选中求和范围（ctrl+shift+down向下键），点击公式--求和
2.1，在首行新插一行在A1键入公式：=SUM(A2:A99999)
2.2，任意非A列单元格键入：=SUM(A2:A99999)

VBA:

Sub OutputSumAtEnd()
Dim lastRow As Long
Dim sumValue As Double
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
sumValue = Application.WorksheetFunction.Sum(Range("A1:A" & lastRow))
Cells(lastRow + 1, 1).Value = sumValue
End Sub

复制代码

gwjkkkkk · 发表于 2024-10-8 19:33

Option Explicit
Sub TEST1()
Dim ar, i&, dNum#

ar = [A1].CurrentRegion.Value
For i = 1 To UBound(ar)
dNum = dNum + Val(ar(i, 1))
Next i

MsgBox dNum
Beep
End Sub

gwjkkkkk · 发表于 2024-10-8 19:34

请参考。。。

ykcbf1100 · 发表于 2024-10-8 19:52

使用VBA函数求和

		自动登录	找回密码
密码			免费注册

[求助] 自动为一列不确定长度的列求和

评分

评分

评分

评分

评分