就是有若干行数据转换格式?如图
就是转换数字的格式
01
02
03
05
06
07
09
.
.
.(省略)
转换为
01
02
03
.
.
.(省略)
如图(百度相册):
http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/a8ed24d1c4132a399b50272e.jpg
[解决办法]
Format(Int(01), "00 ")
Format(Int(02), "00 ")
..
..
..
[解决办法]
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.List(i) = Format(Int(List1.List(i)), "00 ")
Next i
[解决办法]
Text2 = StrConv(Text1, vbNarrow)
[解决办法]
用Dictionary,把0~9与数字的0~9建立一一对应的关系,到时候出来什么中文字符就用相应的数字对上去,这样应该比较通用。