请教：用VB把数字转换字符串

brevery

想学习一个应用：用VB实现比如在A1单元格输入一个常规数字10，在B1单元格则生成该数字的文本格式"10"，因为在处理具体表格时会有许多关联和公式，用选择性粘贴或更改单元格式比较麻烦。请各位老师指教！！谢谢

网海遨游

Sub test()
[b1].NumberFormatLocal = "@" '设置成文本
[a1].Copy: [b1].PasteSpecial Paste:=xlPasteValues '粘贴值
End Sub

gbgbxgb

参考下列代码：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target
   
3.         If .Count = 1 Then
   
4.             If .Column = 1 Then
   
5.                 Application.EnableEvents = False
   
6.                 .Offset(, 1) = "'" & .Value
   
7.                 Application.EnableEvents = True
   
8.             End If
   
9.         End If
   
10.     End With
    
11. End Sub

复制代码