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

电脑网络

赵哥ZHS |浏览403次

收藏|2019/04/25 03:10

满意回答

检举 |2019/04/25 03:37

可以使用以下代码：Sub 转数字格式() i = InputBox("请输入行号：") Rows(i & ":" & i).Select Selection.NumberFormatLocal = "#,##0.00_ " Range("A" & i).SelectEnd Sub整行转换为数值格式 - 两位小数，并使用千分位及符号【可按需更改】。

尊尼CKin

贡士 | 采纳率100% | 回答于 2019/04/25 03:37

其他回答(1)

贝尔梅

Subtest()myrow=Range("A65536").End(xlUp).RowFori=1TomyrowRange("C"&i)=Format(Range("A"&i),"yyyymmdd")&Format(i,"000")NextEndSub
评论(0)
回答于 2019/04/25 03:57
- 加载中...