求一段VBA代码，将指定区域的文本格式的非空值的空白单元格转换成数值格式。
答案:2 悬赏:10 手机版
解决时间 2021-02-01 04:46
- 提问者网友：酱爆肉
- 2021-01-31 22:56
求一段VBA代码，将指定区域的文本格式的非空值的空白单元格转换成数值格式。
最佳答案
- 五星知识达人网友：廢物販賣機
- 2021-02-01 00:26
先选中一个要转换的区域，然后执行下面宏代码即可
Sub 转换格式()
With Selection
For Each a In .Cells
.NumberFormatLocal = "0.00_ "
SendKeys "{F2}"
SendKeys "{enter}"
Next
End With
End Sub
Sub 转换格式()
With Selection
For Each a In .Cells
.NumberFormatLocal = "0.00_ "
SendKeys "{F2}"
SendKeys "{enter}"
Next
End With
End Sub
全部回答
- 1楼网友：夜风逐马
- 2021-02-01 01:04
在生成的数值前加一个单引号就可以成为文本了，比如，如果你要让00010正常显示在cells(1,1)中，那么你可以 这样 cells(1,1)=“’” & "00010"
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯