[已解决]求助vba

hjuy78

想把每个表的d2:is2000区域里公式转成数值.太沉重了,

最佳答案

月排行榜 / 总排行榜

windimi007

2012-8-16 13:25

hjuy78 发表于 2012-8-16 13:11
运行后有一个问题我的数据前面是零的全没了,录的宏没有问题例,
sub AAA51()
    With Sheets("60").Sel ...

失误了，没看到是每个表，用下面的代码试试吧！

1. Sub test()    Dim i As Byte
   
2.     For i = 1 To Sheets.Count
   
3.         With Sheets(i).Range("d2:is2000")
   
4.             .NumberFormat = "@"
   
5.             .Value = .Value
   
6.         End With
   
7.     Next i
   
8. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

选中D2:IS2000，复制，然后点中D2，选择性粘贴，数值，就这么简单。

选大区域麻烦的话，可以用定义名称，这样比较省事。

linch92413

在数据区域内任意一个单元格中,按下crrl+*,可以全选区域

windimi007

1. Sub test()
   
2.     Range("d2:is2000") = Range("d2:is2000").Value
   
3. End Sub

复制代码

我不知道呀

Sub t2()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Range("d2:is2000") = sh.Range("d2:is2000").Value
Next
End Sub
试试这个吧

sliang28

录制选择性粘贴的宏，然后自己把对应的区域修改一下，运行即可。

hjuy78

sliang28 发表于 2012-8-16 11:55
录制选择性粘贴的宏，然后自己把对应的区域修改一下，运行即可。

因为表多不方便一个表一个表去点

hjuy78

我不知道呀 发表于 2012-8-16 11:55
Sub t2()
Dim sh As Worksheet
For Each sh In Worksheets

运行后有一个问题我的数据前面是零的全没了,录的宏没有问题例,
sub AAA51()
    With Sheets("60").Select
    Range("A3:IS4202").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("B2").Select
     End With
End sub

windimi007

hjuy78 发表于 2012-8-16 13:11
运行后有一个问题我的数据前面是零的全没了,录的宏没有问题例,
sub AAA51()
    With Sheets("60").Sel ...

请测试！

1. Sub test()    With Range("d2:is2000")
   
2.         .NumberFormat = "@"
   
3.         .Value = .Value
   
4.     End With
   
5. End Sub

复制代码

P.S. 如果还是不行，请上传附件！

windimi007

hjuy78 发表于 2012-8-16 13:11
运行后有一个问题我的数据前面是零的全没了,录的宏没有问题例,
sub AAA51()
    With Sheets("60").Sel ...

失误了，没看到是每个表，用下面的代码试试吧！

1. Sub test()    Dim i As Byte
   
2.     For i = 1 To Sheets.Count
   
3.         With Sheets(i).Range("d2:is2000")
   
4.             .NumberFormat = "@"
   
5.             .Value = .Value
   
6.         End With
   
7.     Next i
   
8. End Sub

复制代码