运用VBA将Excel中【以文本存储的数字】转换为【数字】格式(去除绿色小三角)

需求：如下图，需将F、G、H共3列转换为数字格式，F列保留为整数，G、H列保留为2位小数的数字(且不带千分位)。对于个例的需求，一般用分列就好了，但是考虑到日报之类的频繁需求，还是用代码的好。

 1 Sub test3()
 2
 3 Dim irow As Long
 4 Dim arr()
 5
 6 irow = ActiveWorkbook.Sheets(1).Range("a1048576").End(xlUp).Row
 7 ReDim arr(1 To irow - 1, 3)
 8 arr = ActiveWorkbook.Sheets(1).Range("f2:H" & irow).Value
 9
10 '转换单元格格式
11 With ActiveWorkbook.Sheets(1)
12     .Range("f2:H" & irow).ClearContents                 '清除待转换区域的数据
13     .Range("g2:H" & irow).NumberFormatLocal = "0.00"    'F列转换为整数数字格式
14     .Range("f2:f" & irow).NumberFormatLocal = "0"       'G列、H列转换为保留2位小数数字格式
15     .[f2].Resize(UBound(arr), 3) = arr
16 End With
17
18 End Sub

转载于:https://www.cnblogs.com/bianchengmengxin/p/10901370.html

运用VBA将Excel中【以文本存储的数字】转换为【数字】格式(去除绿色小三角)相关推荐

Python VS VBA 读取Excel中的文本框组件
作者:小小明 Python读取Excel的文本框基本需求今天看到了一个很奇怪的问题,要读取Excel文件的文本框中的文本,例如这种: 本以为openxlpy可以读取,但查看openxlpy官方文档 ...
利用VBA将excel中链接转换为图片形式存放在指定的单元格中
利用VBA将excel中链接转换为图片形式存放在指定的单元格中 VBA代码如下 Private Declare Function URLDownloadToFile Lib "urlmon& ...
excel中的文本转换成数值
excel中的文本转换成数值 B1 = A1*1 都乘上一个1就好了
VBA把excel中的图表复制到PPT中
可以使用 VBA 将 Excel 中的图表复制到 PowerPoint 中,只需执行以下几步:1. 在 Excel 工作簿中打开图表:2. 按住 "Ctrl" 键,并选择图表:3. ...
Excel中拼接文本字符串-CONCATENATE函数
Excel中拼接文本字符串-CONCATENATE函数 CONCATENATE函数函数简介函数语法函数说明示例 CONCATENATE函数函数简介 CONCATENATE 函数用于Excel ...
VBA在Excel中的应用（一)：改变符合条件单元格的背景颜色
Jiahua Jin VBA在Excel中的应用(一):改变符合条件单元格的背景颜色在使用excel处理数据的时候,为了能更清晰的标示出满足特定条件的单元格,对单元格添加背景色是不错的选择.手工处理 ...
EXCEL中如何将文本格式的数字转换为日期格式
要求将A2:A7单元格区域的文本格式的数字转换为日期格式. 点击鼠标左键拖动鼠标选中A2:A7单元格区域,依次点击[数据]-[分列]选项. 如下图,弹出[文本分列向导-步骤1]对话框,勾选[固定宽度] ...
excel怎么转换成左上角带绿色小三角的文本格式
excel怎么转换成左上角带绿色小三角的文本格式选中需要转换格式的单元格数据,点击顶部菜单栏中的数据菜单,在数据菜单下的数据工具组里点击分列选项
Excel中去除单元格内左上角的绿色小三角
今天在编辑一个excel文件时,发现有一列的单元格中的左上角都有一个绿色的小三角. 当我用公式对这列中的单元格进行操作的时候,在公式总不能反应出值来. google了下,原来是excel的一个防止用户 ...

运用VBA将Excel中【以文本存储的数字】转换为【数字】格式(去除绿色小三角)

运用VBA将Excel中【以文本存储的数字】转换为【数字】格式(去除绿色小三角)相关推荐

最新文章

热门文章