excel同一单元格中有多组文字和数字怎么用宏公式求和

Question

excel同一单元格中有多组文字和数字怎么用宏公式求和
如：12米*6根+58米*9根

Answer 1

Sub 计算()

Columns("A:A").Select

Selection.Replace What:="米", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Selection.Replace What:="根", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

For I = 1 To Range("A65536").End(xlUp).Row

Cells(I, "b") = "=" & Cells(I, "a")

Next

End Sub

Answer 2

我们以表格内的数据为例，可以看到数值后面都带有单位：元：
　　
　　按快捷键【ctrl+H】，导出替换窗口，选择【替换】，在查找内容中输入：元，在替换栏输入空格，然后选择【全部替换】：
　　
　　这时表格内的所有单位均被替换掉了，选取所有数值后鼠标右键选择【设置单元格格式】：
　　
　　在分类中选择【自定义】，右侧类型栏选择【G/通用格式】，并在后面加上文字【元】再点击确认：
　　
　　表内数值后又重新恢复单位：元，只不过这次将文字生成了数字格式，能直接进行求和计算。我们选取表内所有数据，在菜单栏中找到求和公式，系统就会自动生成求和总数了：
　　追问

可以用我的这一组数据为例说一下吗？谢谢！

Answer 3

自定义函数示意图

Function abc(a$)

Dim b$, c$, Crr, i&

c = "米根"

b = a

For i = 1 To Len(c)

b = Replace(b, Mid(c, i, 1), "")

Next i

abc = Evaluate(b)

End Function

追问

谢谢你！可是，我试了还是不行呢？