分类:
2010-04-08 11:03:52
用Excel选择一列数字,选择数据→分列→下一步→下一步→选择文本→完成
数字列转文本格式
打开EXCEL文件后,打开“工具--宏--Visual Basic编辑器”
双击“Microsoft Excel对象”下面的"Sheet1"
然后在空白区域加上下列VBA代码,然后切换一下工作表就可以给每一行的数字列加上单引号变成文本列了(完成后要记得把代码删除):
Private Sub Worksheet_Activate()
If MsgBox("Are you sure?", vbOKCancel) = vbOK Then
Call Num2Text
End If
End Sub
Sub Num2Text()
For i = 1 To 1000 '共1000行,2为列数,可以修改
Sheet1.Cells(2)(i) = "'" + Sheet1.Cells(2)(i).Text
Next
End Sub