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

最新推荐文章于 2025-05-24 07:30:52 发布

原创最新推荐文章于 2025-05-24 07:30:52 发布 · 1w 阅读

28 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一个使用VBA宏批量操作Excel工作表的方法，包括遍历所有工作表，复制并粘贴数据为数值格式，以及使用封装的延时函数确保操作稳定。通过示例代码展示了如何在每个工作表上执行相同的操作，并提供了调试信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
'封装延时函数
Sub delay(T As Long)
Dim time1 As Long

time1 = timeGetTime
Do
DoEvents
Loop While timeGetTime - time1 < T
End Sub

Sub 宏1()
Dim i As Long, row_book As Long, column_book As Long

'遍历所有工作表（sheet）
For i = 1 To ActiveWorkbook.Worksheets.Count
'下面这句，亦可以用ActiveWorkbook.Worksheets(i).Activate 进行替代，代表激活此工作表
ActiveWorkbook.Worksheets(i).Select
'获取此激活的工作表的行和列
row_book = ActiveSheet.UsedRange.Rows.Count
column_book = ActiveSheet.UsedRange.Columns.Count

'选中所有数据，复制并粘贴为数值
Range("A1:" & Cells(row_book, column_book).Address).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'延迟2s 这里存粹是为了测试，看他有没有异常，实际运行中，上面的时间封装，和这个delay就可以不用了~
delay (2000)
Debug.Print (ActiveWorkbook.Worksheets(i).Name)
Next

End Sub

截图如下：