如何自定义函数实现对文本直接求和？

minchar

我有几个单元格，只有"橡皮，钢笔，直尺"三种东西，假定橡皮1块，钢笔5块，直尺2块，A1=钢笔，A2=橡皮，A3=钢笔，A4=直尺，如何自定义函数直接求和A1：A4？谢谢！

魚。。

我只是好奇，钢笔为什么要求两次

佛山小老鼠

请楼上件附件

佛山小老鼠

1. Option Explicit
   
2. Function 求(Rg As Range)
   
3.     Dim Reg, x, arr1, y, s
   
4.     arr1 = Rg.Value
   
5.     Set Reg = CreateObject("Vbscript.RegExp")
   
6.     With Reg
   
7.         .Global = True
   
8.         .Pattern = "\d+\.?\d*"
   
9.     End With
   
10.     For x = 1 To UBound(arr1)
    
11.         For y = 1 To UBound(arr1, 2)
    
12.             If Reg.test(arr1(x, y)) Then
    
13.              s = s + Val(Reg.Execute(arr1(x, y))(0))
    
14.             End If
    
15.         Next y
    
16.     Next x
    
17.     求 = s
    
18. End Function

复制代码

249773986

=SUM(--SUBSTITUTE(MIDB(A1:A4,SEARCHB("?",A1:A4),LENB(A1:A4)*2-LEN(A1:A4)),"块","")) 三键结束

佛山小老鼠

1. =SUM(--(0&MIDB(A1:B3,SEARCHB("?",A1:B3&0),2*LEN(A1:B3)-LENB(A1:B3))))

复制代码

佛山小老鼠

1. =SUMPRODUCT(--(TEXT(MIDB(A1:B3,SEARCHB("?",A1:B3&0),2*LEN(A1:B3)-LENB(A1:B3)),"0.00;;0;!0")))

复制代码

minchar

佛山小老鼠 发表于 2022-1-8 08:09

谢谢，再谢谢 您把我问题想复杂了！

就是简单求和！

hcm19522

G2=SUMPRODUCT(COUNTIF(B2:F2,I$2:I$9)*J$2:J$9)

無表列項目格式化 B2:F9=(COUNTIF($I:$I,B2)=0)*(B2<>"")

佛山小老鼠

minchar 发表于 2022-1-8 08:25
谢谢，再谢谢 您把我问题想复杂了！

就是简单求和！

我语文是体育老师，不好意思
其实就是一个=counta(B2:G6)