运⽤VBA将Excel中【以⽂本存储的数字】转换为【数字】格式（去
除绿⾊⼩三⾓）
需求：如下图，需将F、G、H共3列转换为数字格式，F列保留为整数，G、H列保留为2位⼩数的数字(且不带千分位)。对于个例的需求，⼀般⽤分列就好了，但是考虑到⽇报之类的频繁需求，还是⽤代码的好。
resize函数vba
1Sub test3()
2
3Dim irow As Long
4Dim arr()
5
6 irow = ActiveWorkbook.Sheets(1).Range("a1048576").End(xlUp).Row
7ReDim arr(1To irow - 1, 3)
8 arr = ActiveWorkbook.Sheets(1).Range("f2:H" & irow).Value
9
10'转换单元格格式
11With 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
16End With
17
18End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。