用代码写入合计数的问题

weide_yang · 发表于 2024-11-21 15:49

L列中有N个数值，想要用代码在M1、M2两个单元格中分别写入盈和亏的合计数，恳请老师赐教，谢谢！
本例中应当分别写入的合计数是：
228146.98
-81939.04

工作簿n.zip (7.72 KB, 下载次数: 11)

xlj310 · 发表于 2024-11-21 16:24

Sumif公式就可以了吧 ?

z865593849 · 发表于 2024-11-21 16:50

ylj518 · 发表于 2024-11-21 17:01

Sub test()
Dim i, j, yin, kui, m
With Sheet1
i = .Cells(Rows.Count, 12).End(xlUp).Row
  For j = 4 To i
  m = (.Cells(j, 12))
If m < 0 Then
kui = .Cells(j, 12) + kui
Else
yin = .Cells(j, 12) + yin
End If
  Next
.Cells(1, 13) = yin
.Cells(2, 13) = kui
End With
End Sub

weide_yang · 发表于 2024-11-21 17:13

非常感谢ylj518老师的帮助！非常切合本人的求助初衷！谢谢！

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

[求助] 用代码写入合计数的问题

评分

评分