[已解决]录制一个宏怎么加循环工作簿有很多工作表

dujigui

Sub 选择粘贴2()
'
' 选择粘贴2 Macro
' 宏由 User 录制，时间: 2010-12-4
'

'
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

最佳答案

月排行榜 / 总排行榜

lyn666666

2010-12-4 19:59

Sub 选择粘贴2()
Dim sht As Worksheet
For Each sht In Sheets
    With sht
' 选择粘贴2 Macro
' 宏由 User 录制，时间: 2010-12-4
'

    .Select
    .Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
Next
End Sub

跳转到最佳答案楼层

lyn666666

Sub 选择粘贴2()
Dim sht As Worksheet
For Each sht In Sheets
    With sht
' 选择粘贴2 Macro
' 宏由 User 录制，时间: 2010-12-4
'

    .Select
    .Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
Next
End Sub

老糊涂

加个附件，并说明要达到的要求

raulerini

Sub raulerini()
    For i = 1 To Sheets.Count
        Application.CutCopyMode = xlCopy
       with  Sheets(i).UsedRange

.Copy
.PasteSpecial xlPasteValues

end with
        Application.CutCopyMode = False
    Next
End Sub

[此贴子已经被作者于2010-12-4 20:14:17编辑过]

acbs

QUOTE:

以下是引用老糊涂在2010-12-4 20:00:00的发言：
加个附件，并说明要达到的要求

估计就是整表公式转数值吧。楼上两种方法应该都行。

白开水的味道

Sub 选择粘贴2()
'
' 选择粘贴2 Macro
' 宏由 User 录制，时间: 2010-12-4
'

For Each sht In ThisWorkbook.Sheets
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

next

End Sub

迎客松

没有附件，大家都得猜，呵呵！

轩辕轼轲

Sub xPaste()
Sheets.Select
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
End Sub

我这个代码应该是最简单代码，效率也是最高的吧，竟然没给最佳，郁闷

试试，数值化所有的工作表。

[此贴子已经被作者于2010-12-5 10:40:49编辑过]