求指教

孤伤剑客009

有一个问题请教各位高人，
比如在A列有一列数值型数字，我想把它们在B列以字符型的格式表述出来。

例子：A2是1，我希望用vba语句把它在B列B2变成 001这样的形式。
          A3是2，B3变成002
          ......
          A11是10，B11变成010
不知道vba里面可以这样做吗？一般用text函数把他变成这样我会，但是我希望可以通过vba来做。
有高人会做吗？

WJX-online

1. 用函数的话，B2=TEXT(A2,"000")下拉。。。。。

复制代码

dsmch

1. Dim arr, i&
   
2. arr = Range("a2:a" & Range("a65536").End(xlUp).Row)
   
3. For i = 1 To UBound(arr)
   
4.     arr(i, 1) = Format(arr(i, 1), "000")
   
5. Next
   
6. Columns(2).NumberFormatLocal = "@"
   
7. Range("b2").Resize(UBound(arr), 1) = arr
   

复制代码

孤伤剑客009

dsmch 发表于 2013-1-10 19:51

非常感谢~学习了~