使用 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