求助:输入行号,即将该行文本形式转化为数字形式,VBA代码怎么写。

2019-04-26 15:57发布

友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。
2条回答
贝尔梅尔娜美
2019-04-26 16:16

可以使用以下代码:

Sub 转数字格式()
   i = InputBox("请输入行号:")
   Rows(i & ":" & i).Select
   Selection.NumberFormatLocal = "#,##0.00_ "
   Range("A" & i).Select
End Sub

整行转换为数值格式 - 两位小数,并使用千分位及符号【可按需更改】。

一周热门 更多>

相关问题

相关文章