行号 该行

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

2019-04-26 15:57发布

站内问答 / 电脑网络
1227 2 5
友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。
该问题目前已经被作者或者管理员关闭, 无法添加新回复
2条回答
我恼了 - 这个人很懒，什么都没留下
1楼-- · 2019-04-26 16:22
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


贝尔梅尔娜美
2楼-- · 2019-04-26 16:16

可以使用以下代码：

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

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

一周热门 更多>

相关问题

相关文章