VBA复制加号"+“后的值

Question

我需要VBA的帮助实际上，我需要复制加"+“后的值，例如"=2000+5000"，我只需要复制"5000”并粘贴到另一个单元格中。

我已经有了下面的代码：

Dim cell As String
Dim aPos As Integer
Dim bPos As String
Dim result As String
Dim ex As String
Dim cPos As String
Dim dPos As String

Range("a1").NumberFormat = "@"
cell = Range("A1")
    aPos = InStr(cell, "+")
    bPos = Right(cell, aPos)
        Range("b2").NumberFormat = "@" '
        Range("B2").Value = bPos
ex = Range("b2")
    cPos = InStr(ex, "+")
    dPos = Left(ex, cPos)
        Range("b3").NumberFormat = "General"
        Range("b3").Value = dPos


End Sub

谢谢。

Answer 1

如果你所有的值都是2个运算符，比如2000+5000，创建你自己的UDF：

Function GET_SECOND_OPERATOR(ByVal vRng As Range) As Double
GET_SECOND_OPERATOR = CDbl(Split(vRng.Formula, "+")(1))
End Function

​

​

试着让它适应你的需求。现在，这个UDF只有在选定的单元格是单个单元格时才有效。没有错误处理。