统计数量和计算金额合计

xing_chen

准提部林 发表于 2023-3-12 11:52
只指定一個項目, 且已排序,
應用不到字典~~

老师你好！是的！在实际中我是手工记下笔数和填写金额。只是我在想到一个问题：就是选择性使用字典问题，因为全部使用字典，则会将其它的同名称的也会统计进去，所以选择性使用字典不知道怎么写；或其它方法又怎么写。故请教。

准提部林

不用字典, 以 k 為斷點//

Sub TEST_A1()
Dim Arr, i&, j%, k%, V, X&, N&
Arr = Range([a1], [d65536].End(3)(1, 3))
For i = 2 To UBound(Arr)
    If Arr(i, 2) = "華為" Then
       If k = 0 Then N = N + 1: k = 1
       V = V + Arr(i, 4): X = X + 1: GoTo 99
    End If
    N = N + 1: k = 0
99: For j = 1 To 5: Arr(N, j) = Arr(i, j):  Next
    If k = 1 Then Arr(N, 4) = V: Arr(N, 6) = X & "筆"
Next i
[i2].Resize(N, 6) = Arr
End Sub

准提部林

再個//借一空行

Sub TEST_A2()
Dim Arr, i&, j%, k%, V, X&, N&
Arr = Range([a1], [d65536].End(3)(2, 3))
For i = 2 To UBound(Arr) - 1
    N = N + 1 - k
    For j = 1 To 5: Arr(N, j) = Arr(i, j):  Next
    If Arr(i, 2) = "華為" Then k = 1: V = V + Arr(i, 4): X = X + 1
    If k = 1 Then Arr(N, 4) = V: Arr(N, 6) = X & "筆"
    If Arr(i + 1, 2) <> "華為" Then k = 0
Next i
[i2].Resize(N, 6) = Arr
End Sub

zyhui1961

杨建营 发表于 2023-3-11 23:15
请楼主参考。

老大：有时间帮忙看成一下呗，不胜感激！
https://club.excelhome.net/thread-1656313-1-1.html

xing_chen

zyhui1961 发表于 2023-3-12 13:43
老大：有时间帮忙看成一下呗，不胜感激！
https://club.excelhome.net/thread-1656313-1-1.html

你发错地方了？为更快解决你问题，请换个地方。

xing_chen

zyhui1961 发表于 2023-3-12 13:43
老大：有时间帮忙看成一下呗，不胜感激！
https://club.excelhome.net/thread-1656313-1-1.html

此题的最后问他，已重列标题，在此版面指定的项目用字典
https://club.excelhome.net/thread-1656332-1-1.html
(出处: ExcelHome技术论坛)
敬请老师赐教。谢谢

准提部林

代碼審核中...看圖//兩個方式

xing_chen

准提部林 发表于 2023-3-12 14:12
代碼審核中...看圖//兩個方式

谢谢老师！2个代码均运行如愿。
抱歉！花在旅途，明日送达

xing_chen

准提部林 发表于 2023-3-12 13:32
再個//借一空行

Sub TEST_A2()

谢谢老师！刚发现！我已按图片输入