用宏转为数值格式

hhxq001

一张表格，想用宏代码转为数值格式，怎么修改代码

给为数值格式.rar (91.91 KB, 下载次数: 13)

2024-10-29 10:48 上传

点击文件名下载附件

江声依旧

1. Private Sub CommandButton1_Click()
   
2.    bRow = ActiveSheet.Range("b65536").End(xlUp).Row
   
3. 
   
4. With Sheet8
   
5. 
   
6.     For i = 3 To bRow
   
7.        .Range("E" & i).Value = .Range("C" & i).Value
   
8.     Next i
   
9. 
   
10.     End With
    
11. End Sub
    

复制代码

ww87725244

1. Sub aa()
   
2. Dim i, ar
   
3. With Worksheets("转数值")
   
4.     ar = .Range("c2:c18")
   
5.     For i = 1 To UBound(ar)
   
6.         ar(i, 1) = ar(i, 1) * 1
   
7.    
   
8.     Next
   
9.     .[c2].Resize(UBound(ar), UBound(ar, 2)) = ar
   
10. End With
    
11. End Sub

复制代码

ww87725244

代码最好写在模块里面

lcluck2002

请楼主测试

z865593849

chlzj

VBA是个好东西，只是想不明白，明明基本操作就可以快速搞定的问题，为什么一定要用VBA呢！方式虽然很多，总结了一下，最快的操作：选中需要处理的区域，区域的右或左上角会显示一个“！”小图标，鼠标指着小图标后，后边会出来个下接键，点开下拉键，点“转换为数字”即可完成。

hhxq001

chlzj 发表于 2024-10-29 11:32
VBA是个好东西，只是想不明白，明明基本操作就可以快速搞定的问题，为什么一定要用VBA呢！方式虽然很多，总 ...

每次粘贴进去每次需要选中再转，很麻烦呢

hhxq001

z865593849 发表于 2024-10-29 11:06

试过了，还是文本格式。

wengjl

cells(x,y).value=cdbl(cells(x,y).value)