敬请老师赐教！一个比较难缠的字符转数字并求和的问题。先谢了！

wtb8152

各位老师好！
敬请赐教：如何把A列字符串用VBA转换成B列的总值。
具体字符值是：
字符A=10000，然后乘以A前面的数字；
字符B=1000，然后乘以B前面的数字；
字符C=100，然后乘以C前面的数字；
字符D=1，然后乘以D前面的数字；
再把它们的数字加起来放到B列。
谢谢！

蓝桥玄霜

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

苏小亓

提问技巧

1.提问之前可以先在论坛搜索相关帖子

2.提问的时候尽量问题说明白点 要有效果图 有表格附件

3.如果别人帮你解决了问题一定要记得回复别人结果 和说声谢谢 有鲜花的话也可以送几朵

4.问题解决后你可以学习别人解决问题的方法

[新手必读]发帖须知、上传附件、截图动画、压缩解压、靓帖推荐：
http://club.excelhome.net/thread-184567-1-1.html

Excel Home论坛学习及使用完全攻略(新人必读)：
http://club.excelhome.net/thread-449518-1-1.html

EH技术论坛的最佳学习方法：
http://club.excelhome.net/thread-117862-1-1.html

wtb8152

一直很卡，无法回复和上传附件。谢谢啦！
其实本来就已上传，被卡住了。

月关

发到函数公式版块，那边分分钟搞得定，——如果只是想处理结果而不是想学VBA的话。4个Substitue嵌套，比如 A替换成  *10000+
或者再搭配 Evaluate ?
以前经常这种操作，学VBA后这块忘的差不多了……

月关

刷新发重了…… 学习了楼下两位老师的 ASC()用法，简化一下代码

Sub test()
arr = Range([a2], [a2].End(4))
ReDim brr(1 To UBound(arr), 1 To 1)
With CreateObject("vbscript.regexp")
.Global = 1
For Each rn In arr
.Pattern = "\d+"
Set x = .Execute(rn)
.Pattern = "[ABCD]"
Set y = .Execute(rn)
For i = 0 To x.Count - 1
ss = ss + x(i) * 1 * 10 ^ (69 - Asc(y(i)))
Next
n = n + 1
brr(n, 1) = ss
ss = 0
Next
End With
[c2].Resize(UBound(brr)) = brr
End Sub

tspliu

Sub aa()
      Set reg = CreateObject("Vbscript.Regexp")
    With reg
        .Global = True
        .IgnoreCase = True
        .Pattern = "\d+|\w"
    End With
    For i = 2 To UsedRange.Rows.Count
       n = True
       Set mc = reg.Execute(Cells(i, 1))
       For Each x In mc
        If n Then
            num1 = x: n = Not n
        Else
            If x = "D" Then
                m = 0
            Else
                m = 69 - Asc(x)
            End If
            num2 = num1 * 10 ^ m: sum1 = sum1 + num2
            n = Not n
        End If
       Next
       Cells(i, 3) = sum1: sum1 = 0
   Next
End Sub

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, sum, s, t
  arr = [a1].CurrentRegion.Offset(1).Resize(, 1)
  For i = 1 To UBound(arr, 1) - 1
    s = arr(i, 1)
    Do
      For j = 1 To Len(s)
        t = Mid(s, j, 1)
        If Not IsNumeric(t) Then
          n = IIf(t = "D", 68, 69)
          sum = sum + Val(Left(s, j - 1)) * 10 ^ (n - Asc(t))
          s = Mid(s, j + 1): Exit For
        End If
      Next
    Loop Until Len(s) = 0
    arr(i, 1) = sum: sum = 0
  Next
  [b2].Resize(UBound(arr, 1) - 1) = arr
End Sub

wtb8152

谢谢月关老师！
谢谢tspliu老师！
谢谢一把小刀闯天下老师！
能得到你们的热心帮助深感荣幸，谢谢你们！今天下午一直上不了该论坛，所以暂时放弃几个钟头，现在终于能上来，看到诸位这么热心帮助，感到非常的高兴！再次说谢谢！我将会认真的向你们好好学习！

deadzlq

PQ参考解法