Excel技巧-将文本批量转换成字符串

Excel技巧-将文本批量转换成字符串

打开EXCEL2007文件后，打开“视图--宏--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