Chinaunix首页 | 论坛 | 博客
  • 博客访问: 162042
  • 博文数量: 11
  • 博客积分: 2770
  • 博客等级: 少校
  • 技术积分: 775
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-13 12:19
文章分类

全部博文(11)

文章存档

2010年(6)

2009年(5)

我的朋友
最近访客

分类:

2010-04-08 11:03:52

Excel中快速取消所有科学计数显示方式

用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

阅读(448) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~