vba 文本型数字 修改为数值型

rendiule01

ACCESS  通过传递查询 把SQL server数据库加载到ACCESS里，为何数值型的数字是文本型数字显示，不能自动消除小数点后面多余的O
把他们导出到EXCEL里也是文本型数字，自己设置单元格式也没用：能否用vba修改为数值型
出库统计列表20241214_1553.zip (21.28 KB, 下载次数: 5)

2024-12-14 16:19 上传

点击文件名下载附件

kevinchengcw

with intersect(columns(5),activesheet.usedrange)
  .value=.value
end with

z865593849

简单转化下就可以

ykcbf1100

这个方法的好处是：如果有公式，则可以保留

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.14
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveSheet
   
4.         Set Rng = .UsedRange.Offset(1, 1)
   
5.         .Columns(5).NumberFormatLocal = "0"
   
6.         Rng.Value = Rng.Formula
   
7.     End With
   
8.     Application.ScreenUpdating = True
   
9.     MsgBox "OK！"
   
10. End Sub
    
11. 
    

复制代码