UC知道有哪位高手能告诉我，怎样给excel表中的已有的大批数据前加一个0？
来源：百度知道 编辑：UC知道 时间：2024/06/01 03:30:46
据说有一种很简单的方法，编一个小程序
不好意思，程序如何输入，在什么状态下输入？一旦验证成功，将立刻采纳。
不好意思，程序如何输入，在什么状态下输入？一旦验证成功，将立刻采纳。
假设数据都在A列
Dim lr, i As Integer
lr = [a65536].End(xlUp).Row
For i = 1 To lr
Cells(i, 1).NumberFormatLocal = "@"
Cells(i, 1).Value = "0" & Cells(i, 1).Value
Next
晕，调出控件箱。在sheet上画个按钮，然后双击，将代码写在中间，推出编辑模式，点击按钮就可以了。