使用 VBA 删除单元格中的最后一个字符

Question

我在一个单元格中有一个值，如下所示

( Abc','def','hij', 'klm',)

我需要将这些值作为参数传递到 SQL 查询中。 为此，我需要在开头添加一个额外的 '，使其读作 'Abc' 并删除 m 之后的最后一个。

我试过Right(C2,LEN(C2)-(LEN(C2)-1)))

但是上面是删除所有我的，我只需要最后一个，就可以删除

Answer 1

试试下面的公式

=REPLACE(REPLACE(A1,1,2,"('"),LEN(REPLACE(A1,1,2,"('"))-2,2,"")

编辑：VBA 代码。 如果第一个括号后没有空格，请尝试以下代码。

Sub sSQL()
Dim x As String, z As String

    x = Range("A1")
    z = "('" & Mid(x, 2, Len(x) - 3) & ")"
    MsgBox z

End Sub