把单元格的格式设置为文本,
你要在VBA中加入代码,可以把设置文体这个过程用宏录下来,再把代码加到你的里面去
把代码改成这样:
Sheet1.Cells(1, 1).Value = 11 & "-22"
Range("A1").Select
Selection.NumberFormatLocal = "@"
有两个办法:
1、不用 VBA,把A列设为文本格式。
2、使用 VBA,先运行,再输入数据:
Sub Macro1()
Columns("A:A").Select
Selection.NumberFormatLocal = "@"
End Sub
把Worksheets(1).Range("A1").NumberFormatLocal = "@"放在Worksheets(1).Cells(1, 1).Value = “11-22”的前面,就可以了。
Worksheets(1).Cells(1, 1).Value = "'"&"11-22"