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

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

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

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, "")
    
    MsgBox result
End Sub