求助：提取连续汉字或字母后加指定字符串

zizunbao

VBA自动在连续的汉字 或 汉字+字母组合 或 字母收尾加英文括号
Worksheet_Change事件，范围Range("A1：A2")
substitute配合find函数或VBA_Replace what,Replacement配合instr的复杂吗，怎么编写单元格内带有变量的代码？
有没有其他办法？

fjmxwrs

在A列输入带+的字符串，在B列得到你要的结果，见附件

zizunbao

fjmxwrs 发表于 2017-12-31 13:19
在A列输入带+的字符串，在B列得到你要的结果，见附件

谢谢版主reg.Pattern="\d+|[一-龡][a-zA-Z]+"中的.Pattern="\d+|[一-龡][a-zA-Z]+"不理解

尤其“|[一-龡]”完全不理解
\d不理解，
|[一-龡]猜测是不是特殊字符？前面为什么会有个“|”？
[a-zA-Z]猜测是不是小写及大写字母

fjmxwrs

zizunbao 发表于 2018-1-2 12:47
谢谢版主reg.Pattern="\d+|[一-龡][a-zA-Z]+"中的.Pattern="\d+|[一-龡][a-zA-Z]+"不理解

尤其“|[一- ...

正则表达式，|分隔，前面为数字，后面是文字与字母及符号

zizunbao

fjmxwrs 发表于 2018-1-2 20:58
正则表达式，|分隔，前面为数字，后面是文字与字母及符号

版主我在网上恶补了一下like正则表达式
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str1, arr, crr, x%, r%, reg
    If Target.Column = 1 Then
        r = Target.Row
        Set reg = CreateObject("vbscript.regexp")
        str1 = Target.Value
        'If str1 Like "*+*" = False And str1 Like "*-*" = False And str1 Like "***" = False And str1 Like "*/*" And str1 Like "*.*" = False Then
        If str1 Like "*+*" = False Then Exit Sub
         'If str1 Like "*-*" = False Then Exit Sub
        'If str1 Like "(-?\d+)(\ *[+\-*/]\ *-?\d+)*" = False Then Exit Sub
        arr = Split(str1, "+")
        str1 = ""
        For x = 0 To UBound(arr)
            With reg
                .Global = True
                .Pattern = "\d+|[一-龡][a-zA-Z]+"
                '.Pattern = "\d+[a-zA-Z]"
                '.Pattern = "\d+|[a-zA-Z]"
                crr = Split(.Replace(arr(x), "$&,"), ",")
                If UBound(crr) > 0 Then
                    If crr(1) = "" Then
                        str1 = str1 & crr(0) & "+"
                    Else
                        str1 = str1 & crr(0) & "(" & crr(1) & ")" & "+"
                    End If
                Else
                    str1 = str1 & "(" & crr(0) & ")" & "+"
                End If
            End With
        Next x
        Cells(r, 2) = Left(str1, Len(str1) - 1)
    End If
End Sub
我尝试了很多，现在您帮我写的代码中除了加法，其他都不能用。其实我的想法是解决单元格数字后面如果有汉字或字母就自动加英文的括号，然后我就能用宏表函数evaluate进行计算了。以前是定义名称然后计算，但是有时候因为EXCEL版本或同事在别的电脑上的原因定义名称就不起作用了。
每次单元格汉字都需要加个[]，我想智能化一点所以就有了这么个提问了