[已解决]TEXT转为VALUE

ls

TEXT转为VALUE.rar (8.41 KB, 下载次数: 8)

2014-8-19 15:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-8-19 16:20

ls 发表于 2014-8-19 16:05
前面0值没有显示

1. Sub Macro1()
   
2. 
   
3. Columns("A:A").Select
   
4. Selection.NumberFormatLocal = "@"
   
5. Dim arr
   
6. arr = Application.Text([a1:a9], "00000000")
   
7. 
   
8. [a1].Resize(UBound(arr, 1), 1) = arr
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

baksy

附件中的数字已经是数值格式（特殊）
如果想删除前面“0”的话
B1单元格复制以下公式、下拉；
=TEXT(A1,"0")

这儿有肥猫

录制宏即可

ls

这儿有肥猫 发表于 2014-8-19 16:02
录制宏即可

前面0值没有显示

ls

baksy 发表于 2014-8-19 15:12
附件中的数字已经是数值格式（特殊）
如果想删除前面“0”的话
B1单元格复制以下公式、下拉；

想显示0值,

就是自定义格式 转为单元格值

这儿有肥猫

ls 发表于 2014-8-19 16:05
前面0值没有显示

1. Sub Macro1()
   
2. 
   
3. Columns("A:A").Select
   
4. Selection.NumberFormatLocal = "@"
   
5. Dim arr
   
6. arr = Application.Text([a1:a9], "00000000")
   
7. 
   
8. [a1].Resize(UBound(arr, 1), 1) = arr
   
9. End Sub
   

复制代码

ls

这儿有肥猫 发表于 2014-8-19 16:20

顺便问下,我的代码
rg=rg.text
为什么不能显示0值

ls

这儿有肥猫 发表于 2014-8-19 16:20

顺便问下,我的代码
rg=rg.text
为什么不能显示0值

ls

修改了下
Sub Text转value()
    Set rg = Application.InputBox("选择要转换的区域", "Text 转 value", Selection.Address, , , , , 8)
     k = InputBox("要生成几位数", "默认8位", 8)
    rg.NumberFormatLocal = "@"
    Dim arr
    arr = Application.Text(Selection, VBA.String(k, "0"))
    rg(1).Resize(UBound(arr, 1), 1) = arr
End Sub