author: love02xp
title: Excel用vba将文本数字改为数值
date: 2022-04-11 18:20:45
category: [编程代码]
tags: [学习,编程,设计]
draft: false
cover: http://w.cool02.com/Soft02/images/00.jpg

将文本转换为数值，推荐两种方法：

一是【分列】，选择需要转换的单列数据，点【数据】下面的【分列】按钮，弹出对话框后直接点【完成】即可。如果多列需要多次操作。【分列】按钮的位置如下图：

二是楼主要求的VBA办法，此方法主要用于解决太多列需要处理的情况，列不多的时候用不着这么复杂，先给出把全表转换为数值的程序代码：

sub 宏1()

dim arr

arr=activesheet.usedrange

activesheet.usedrange=arr

end sub

注意，这个代码把全表都转换了，如果原来有部分区域有公式也会转换为数值，如果有部分区域是身份证号码等长数字，转换后会丢失内容。如果只转换某个区域（例如A2:F100），代码需要修改如下：

sub 宏1()

dim arr

arr=range("a2:f100")

range("a2:f100")=arr
end sub

程序一次只处理一个连续区域，有多个区域（例如A2:F100, H3:L5)可以使用下面的循环办法：

sub 宏1()

dim arr, rng

for each rng in array("A2:F100",   "H3:L5")

    arr=range(rng)

    range(rng)=arr

next rng
end sub

这个代码可以解决无数多个区域的情况，依次按格式写在后面即可。

用VBA是可以的，但你这个情况，感觉没必要用VBA。

方法一：

选中这一列设置为常规格式，

选中这一列，进行替换，0全部替换为0、1全部替换为1，2全部替换为2，......，0至9这十个数字分别替换一次，共替换十次，以保证每一个单元格都被替换到。只要单元格被替换到（单元格有变更）就会重新识别单元格格式的。

方法二：

找一列空列进行辅助，输入公式=--A1并下拉填充，这列得出的就是数值格式。

选中辅助列，复制，再选中A列，右键---粘贴为值，将A列覆盖，A列就变成数值了。

最后把辅助列删除或清空。