求助在文件原代码中加句代码，谢谢各位大神

760636412

求大神，帮我在文件原代码中，添加句带不同单位的合计求和的值（求和后的值不用单位）
弄到这不会弄了，麻烦大神帮忙下，谢谢
抱歉，没表达清楚，重编辑下，是黄色单元格里的，数量合计（合计后不用单位）
单位合计求和.zip (14.74 KB, 下载次数: 5)

2024-5-5 17:46 上传

点击文件名下载附件

过客fppt

760636412

过客fppt 发表于 2024-5-5 17:57

数量黄色单元格的合计，抱歉没表达清楚。

760636412

抱歉，没表达清楚，是数量，黄色单元格的合计，

过客fppt

可以先判断最后一位字符是否为数据，再进行累加：

1. Sub 判断字符是否为数据()
   
2.     Dim myChar As String
   
3.     myChar = "5"
   
4.    
   
5.     If IsNumeric(myChar) Then
   
6.         MsgBox myChar & " is a number."
   
7.     Else
   
8.         MsgBox myChar & " is not a number."
   
9.     End If
   
10. End Sub

复制代码

过客fppt

过客fppt 发表于 2024-5-5 18:11
可以先判断最后一位字符是否为数据，再进行累加：

如果不是数据，把右侧的一位字符去掉，再累加

760636412

过客fppt 发表于 2024-5-5 18:11
可以先判断最后一位字符是否为数据，再进行累加：

你这个不太理解，麻烦帮忙优化下，谢谢，其实我想的是可不以可把单位去掉然后像SUM哪样求和，再写入值？但无从下手！

gwjkkkkk

Sub test()
   Dim ar, iCount&
    ar = [G8:G17].Value
    For i = 1 To UBound(ar)
        iCount = iCount + Val(ar(i, 1))
    Next i
    MsgBox iCount
    [g18].Value = iCount
End Sub

gwjkkkkk

请参考附件。。。

ykcbf1100

这个如果二列求和的话就不太适合工作表事件了。