VBA遍历所有工作表，获取所有行和列，复制粘贴为数值

Private Declare PtrSafe Function timeGetTime Lib &＃8220;winmm.dll&＃8221; () As Long
&＃8216;封装延时函数
Sub delay(T As Long)
    Dim time1 As Long
    
    time1 = timeGetTime
    Do
        DoEvents
    Loop While timeGetTime &＃8211; time1 End Sub

Sub 宏1()
    Dim i As Long, row_book As Long, column_book As Long
    
    &＃8216;遍历所有工作表（sheet）
    For i = 1 To ActiveWorkbook.Worksheets.Count
        &＃8216;下面这句，亦可以用ActiveWorkbook.Worksheets(i).Activate 进行替代，代表激活此工作表
        ActiveWorkbook.Worksheets(i).Select
        &＃8216;获取此激活的工作表的行和列
        row_book = ActiveSheet.UsedRange.Rows.Count
        column_book = ActiveSheet.UsedRange.Columns.Count
        
        &＃8216;选中所有数据，复制并粘贴为数值
        Range(&＃8220;A1:&＃8221; & Cells(row_book, column_book).Address).Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        
        &＃8216;延迟2s 这里存粹是为了测试，看他有没有异常，实际运行中，上面的时间封装，和这个delay就可以不用了~
        delay (2000)
        Debug.Print (ActiveWorkbook.Worksheets(i).Name)
    Next
    
End Sub

截图如下：