将单元格中的文本格式批量转换为数值格式

greener2008

请教：
他人制作的工作表，其中有些单元格为莫名其妙的文本格式，见附件。

请问如何批量更改为数值格式，谢谢。

[ 本帖最后由 greener2008 于 2011-1-13 12:39 编辑 ]

youliqi

执行宏
For i = 2 To Sheet1.Range("A65536").End(xlUp).Row
    For j = 1 To 4
        aa = Cells(i, j)
        Cells(i, j) = Val(aa)
    Next
Next

yzfbee

1、如图2，可以用EXCEL自带的功能转换！
2、如图3，先选定一个空白单元格进行复制，然后选择你要转换为数字的数据区域，右键调用“选择性粘贴”在弹出对话框中选择“数值”和“加”然后确定！

[ 本帖最后由 yzfbee 于 2010-6-27 11:42 编辑 ]

greener2008

谢谢解答。
另外，能否解释一下，这种格式是如何造成的？为什么用单元格设置无法更改成数值格式？

l00008

好东西谢谢分享

right-song

可以在任意一个单元格设置为常规或数值后填入1，复制，在将要转换格式的区域选中，然后选择性粘贴，选择运算-乘，确定。