excel工作簿求和求F列最后一个数值的和求E列最后一个小于0的数值的和

发布网友发布时间：2022-05-05 02:35

共3个回答

热心网友时间：2023-10-05 12:30

ALT+F11打开VBA编辑器，粘贴以下代码，F5运行，在第一个工作表中的G列显示结果。
Sub sumsheet()
Dim i, j As Integer
Dim esum, fsum As Double
Dim sh As Worksheet
esum = 0
fsum = 0
For Each sh In Worksheets
sh.Select
j = Range("f65535").End(xlUp).Row
fsum = fsum + Cells(j, 6)
For i = j To 1 Step -1
If Cells(i, 5) < 0 Then
esum = esum + Cells(i, 5)
End If
Next
Next
Sheet1.Cells(1, 7) = "E列和" & esum
Sheet1.Cells(2, 7) = "F列和" & fsum
End Sub追问输入之后显示编译错误语法错误是什么意思？我要求的是每一个工作簿中的E列最后一个数的和
还有每个工作簿中F列最后一个数的和
我的第一个工作簿的名称也不是默认的名称。。。我的QQ是415585690 谢谢你啦~~

热心网友时间：2023-10-05 12:31

描述不是很精确。

可以按下 Alt+= ，然后鼠标拖选要累加的区域。

热心网友时间：2023-10-05 12:31

你直接在F列下面写一个=sum(f1:f31)不行么
E列写 =SUMIF(E1:E31,"<0",E1:E31)
最后一个数值的和是不是没有说清楚哟

excel工作簿求和 求F列最后一个数值的和 求E列最后一个小于0的数值的和

excel工作簿求和求F列最后一个数值的和求E列最后一个小于0的数值的和