excel - 使用VBA在单元格中添加单引号

我试图通过使用Chr(39)将单引号添加到列中的值，但是我只得到第二个引号。
例如我想要'值'，但我正在获得值'
但是，如果我通过使用Chr(34)来使用双引号有效，那么我会得到“值”

Sub AddQuote()
Dim myCell As Range
    For Each myCell In Selection
        If myCell.Value <> "" Then
            myCell.Value = Chr(39) & myCell.Value & Chr(39)
        End If
    Next myCell
End Sub

最佳答案

只需添加另一个单引号:

Sub AddQuote()
Dim myCell As Range
    For Each myCell In Selection
        If myCell.Value <> "" Then
            myCell.Value = Chr(39) & Chr(39) & myCell.Value & Chr(39)
        End If
    Next myCell
End Sub

关于excel - 使用VBA在单元格中添加单引号，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11476326/