0

現在、基数と文字をすべて含むワークシートがあります。テキストを含むすべてのセルを引用符で囲んで変更したい。以下のコードは、すべてのセルを 2 つの一重引用符で囲みます。代わりにテキストを二重引用符で囲む方法はありますか?

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
4

2 に答える 2

0

例えば

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

したがって、\ で始まる引用符付き文字列内の引用符は "" で、数値書式文字としてエスケープされます ;-)

于 2013-06-11T19:30:48.460 に答える