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 |