現在、基数と文字をすべて含むワークシートがあります。テキストを含むすべてのセルを引用符で囲んで変更したい。以下のコードは、すべてのセルを 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