excel - 在 excel 单元格中的文本周围放置 1 个双引号，而不是 2 个单引号

Question

目前，我有一个包含所有基数和字母的工作表。我希望所有有文本的单元格都用引号引起来。下面的代码在所有单元格周围放置了两个单引号。有没有办法在文本周围放置双引号？

无论我使用 VBA 还是尝试在 excel 中进行操作，我总是收到错误消息。

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("B:B,D:D,F:F").Select
    Range("B1").Activate
    Selection.NumberFormat = """''""@""''"""
    Columns("G:G").Select
    Selection.NumberFormat = "mm/dd/yy;""''"" @""''"""
    Columns("E:E").Select
    Selection.NumberFormat = """''""d-mmm""''"""
    Columns("C:C").Select
    Selection.NumberFormat = """''""m/d/yyyy""''"""

    Dim LRow As Long
'
    LRow = Cells(Rows.Count, "A").End(xlUp).Row


    Range("I1").Select
    ActiveCell.FormulaR1C1 = "=""''""&0&RC[-8]&""''"""
    Range("I1").Select
    Selection.AutoFill Destination:=Range("I1:I" & LRow), Type:=xlFillDefault
    Columns("I:I").Select
    Selection.Copy
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("I:I").Select
Selection.Delete Shift:=xlToLefT

End Sub

Answer 1

例如

Selection.NumberFormat = "\""@\"""

所以这就是 "" 引用的字符串中的引号，以 \ 为前缀，以将其转义为数字格式字符；-)

Answer 2

对于双引号，请尝试使用Chr(34).

Sub DoubleQuotes
    Dim str as string

    str = "This has double quotes"
    Debug.Print chr(34) & str & chr(34) //Prints "This has double quotes"
End Sub