如何从Excel VBA结果中删除引号

从Excel VBA结果中删除引号可以通过以下几种方法实现：

1. 使用VBA的Replace函数：可以使用VBA的Replace函数将字符串中的引号替换为空字符串。示例代码如下：

Sub RemoveQuotes()
    Dim result As String
    Dim originalString As String
    originalString = "This is a 'sample' string."
    result = Replace(originalString, "'", "")
    MsgBox result
End Sub

在上述示例中，原始字符串中的单引号被替换为空字符串，最终结果将弹出一个对话框显示为："This is a sample string."

1. 使用VBA的Mid函数和Loop循环：可以使用VBA的Mid函数和Loop循环逐个字符检查字符串，并将引号排除在外。示例代码如下：

Sub RemoveQuotes()
    Dim result As String
    Dim originalString As String
    Dim i As Integer
    originalString = "This is a 'sample' string."
    For i = 1 To Len(originalString)
        If Mid(originalString, i, 1) <> "'" Then
            result = result & Mid(originalString, i, 1)
        End If
    Next i
    MsgBox result
End Sub

在上述示例中，循环遍历原始字符串的每个字符，如果字符不是引号，则将其添加到结果字符串中。最终结果将弹出一个对话框显示为："This is a sample string."

1. 使用VBA的Regular Expressions（正则表达式）：可以使用VBA的正则表达式对象（RegExp）来匹配并删除引号。示例代码如下：

Sub RemoveQuotes()
    Dim result As String
    Dim originalString As String
    Dim regex As Object
    originalString = "This is a 'sample' string."
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "'"
    result = regex.Replace(originalString, "")