[已解决]求教对工作簿中所有工作表中的文本都转换成数值的方法？

eikok

求教对工作簿中所有工作表中的文本都转换成数值的方法？

Sub 文本加成数值()

    Range("bt6").Select

    Selection.Copy

    Cells.Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _

        False, Transpose:=False

End Sub
上面的代码是录制宏得来的
但是要往一个一个工作表中复制.F5运行

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-26 19:58

1. Sub Macro1()
   
2. For i = 1 To Sheets.Count
   
3.     With Sheets(i).UsedRange
   
4.         .NumberFormatLocal = "G/通用格式"
   
5.         .Value = .Value
   
6.     End With
   
7. Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

我心飞翔410

晕 还是 for each 循环结构啊 或者for
Sub 文本加成数值()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Range("bt6").Copy
    sh.Cells.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
Next
End Sub

dsmch

1. Sub Macro1()
   
2. For i = 1 To Sheets.Count
   
3.     With Sheets(i).UsedRange
   
4.         .NumberFormatLocal = "G/通用格式"
   
5.         .Value = .Value
   
6.     End With
   
7. Next
   
8. End Sub
   

复制代码

eikok

我心飞翔410 发表于 2014-3-26 15:57
晕 还是 for each 循环结构啊 或者for
Sub 文本加成数值()
Dim sh As Worksheet

小白学习中……
请多关照{:021:}

eikok

dsmch 发表于 2014-3-26 19:58

.NumberFormatLocal = "g/通用格式"
求VBA中把所有工作表转换成数值并保留两位小数的方法？

dsmch

eikok 发表于 2014-3-31 09:30
.NumberFormatLocal = "g/通用格式"
求VBA中把所有工作表转换成数值并保留两位小数的方法？

录制宏即可获得代码
.NumberFormatLocal = "0.00"

eikok

dsmch 发表于 2014-3-31 09:55
录制宏即可获得代码
.NumberFormatLocal = "0.00"

多谢，
这是个窍门{:021:}