求助：输入行号，即将该行文本形式转化为数字形式，VBA代码怎么写。
发布时间:2019-04-26 15:57
友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。
2个回答
- 我恼了
- 49
Sub test()myrow = Range("A65536").End(xlUp).RowFor i = 1 To myrow Range("C" & i) = Format(Range("A" & i), "yyyymmdd") & Format(i, "000")NextEnd Sub
发布于 2019-04-26 16:22
查看更多
- 贝尔梅尔娜美
- 21
可以使用以下代码：
Sub 转数字格式()
i = InputBox("请输入行号：")
Rows(i & ":" & i).Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("A" & i).Select
End Sub
整行转换为数值格式 - 两位小数，并使用千分位及符号【可按需更改】。
发布于 2019-04-26 16:16
查看更多
