EXCEL选区表达式计算

leedun

在Excel中有一列表达式，想先手动选择要计算的表达式区域，然后将选中部分的表达式结果放在表达式右侧一列，请大神赐代码！

ggmmlol

只需简单地添加一个等号“=”，就成了普通公式了。

使用我做的免费小工具——【超级查找替换】加载宏，可以非常方便地解决你的这个问题。
当然，这个小工具可不只是这么一点功能，它是非常强大的，比EXCEL内置的“查找和替换”功能强太多了！

演示如下：

719404338

1. Sub t()
   
2. For i = 3 To [a65536].End(3).Row
   
3. Range("b" & i) = "=" & Range("a" & i).Text
   
4. Next
   
5. End Sub
   

复制代码

leedun

719404338 发表于 2019-1-19 18:32

您好，感谢您的回复，您的代码不能针对选择的区域，能否再改进一下，谢谢

cjc209

Sub 中英文混合式求表达式或求值()
   
   Set sjq = Application.InputBox(prompt:="请选择：查找区域", Type:=8)
    Set jgq = Application.InputBox(prompt:="请选择：结果摆放起始位", Type:=8)
    jgqqsh = jgq.Row
    jgql = jgq.Column
    bb = MsgBox("是为直接求值  否为输出表达式", vbYesNo)
     Set regx = CreateObject("vbscript.regexp")
For Each c In sjq
     With regx
        .Global = True
        .Pattern = "\[(.*?)\]|\【(.*?)\】|[^0-9×xX+-\/\÷\~.\~(\~)\~（\~）\~*]|[^0-9]+$"
        w = Join(Split(.Replace(c, ""), ""))
       If w = "" Then GoTo 20
    End With
     Dim a, b, i
    a = "Xx×÷（）"
    b = "***/()"
    For i = 1 To 6
        w = Replace(w, Mid(a, i, 1), Mid(b, i, 1))
    Next
    With regx
        .Global = True
        .Pattern = "^([^0-9\~(\-])+"
        w = Join(Split(.Replace(w, ""), ""))
      
    End With
  
   
     If bb = 6 Then GoTo 6
        Cells(jgqqsh + n, jgql) = w
        GoTo 20
6:
        Cells(jgqqsh + n, jgql) = Application.Evaluate(w)
20:
        n = n + 1
     Next

End Sub

leedun

cjc209 发表于 2019-1-19 21:08
Sub 中英文混合式求表达式或求值()
   
   Set sjq = Application.InputBox(prompt:="请选择：查找区域", ...

感谢您的代码，代码运行效果很好，看到代码中有正则内容，如果表达式书写标准，怎么简化一下代码呢

cjc209

如果数据规范 计算代码简单
Sub 中英文混合式求表达式或求值()
    Set sjq = Application.InputBox(prompt:="请选择：查找区域", Type:=8)
    Set jgq = Application.InputBox(prompt:="请选择：结果摆放起始位", Type:=8)
    jgqqsh = jgq.Row
    jgql = jgq.Column
    For Each c In sjq
        Cells(jgqqsh + n, jgql) = Application.Evaluate("=" & c)
        n = n + 1
    Next
End Sub

leedun

cjc209 发表于 2019-1-19 21:57
如果数据规范 计算代码简单
Sub 中英文混合式求表达式或求值()
    Set sjq = Application.InputBox(prom ...

非常感谢，问题已经解决，有一点不懂，为什么是Cells(jgqqsh + n, jgql) = Application.Evaluate("=" & c)，而不是Cells(jgqqsh + n, jgql) = Application.Evaluate(c)呢

cjc209

leedun 发表于 2019-1-19 22:20
非常感谢，问题已经解决，有一点不懂，为什么是Cells(jgqqsh + n, jgql) = Application.Evaluate("=" & c ...

要有等号才是真正的文本表达式
Evaluate这个函数才会计算出结果 没有等号就只是字符串

leedun

cjc209 发表于 2019-1-19 22:43
要有等号才是真正的文本表达式
Evaluate这个函数才会计算出结果 没有等号就只是字符串

非常感谢您一次次的解答