Login dark
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列就变成数值了。

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