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

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

截图如下：

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

VBA小程序_遍历所有工作表_复制粘贴为数值
Sub VBA小程序_遍历所有工作表_复制粘贴为数值()Dim sht As WorksheetFor Each sht In Worksheetssht.Activatesht.Cells.Copy ...
VBA小程序_遍历所有工作表_取消隐藏所有行_列
Sub VBA小程序_遍历所有工作表_取消隐藏所有行_列()Dim shp As Shape, sht As WorksheetRem On Error Resume Next '忽略报错,防止有#N ...
VBS遍历Excel工作表的方法
这篇文章主要介绍了VBS遍历Excel工作表的实现代码,需要的朋友可以参考下核心代码 '****************************************** '拖拽文件,获取文件路径 ...
vba 将数组作为参数传递_将VBA数组写入工作表时转置（Transpose）的利用
大家好,最近推出的内容是"VBA信息获取与处理"中的部分内容,这套教程面向中高级人员,涉及范围更广,实用性更强,现在的内容是第四个专题"EXCEL工作表数据的读取.回填和 ...
vba put 语名 delphi 用什么语句_将VBA数组写入工作表时转置（Transpose）的利用
大家好,最近推出的内容是"VBA信息获取与处理"中的部分内容,这套教程面向中高级人员,涉及范围更广,实用性更强,现在的内容是第四个专题"EXCEL工作表数据的读取.回填和 ...
navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...
在之前的一篇文章中,分享过用数据透视表的方法批量新建工作表. https://zhuanlan.zhihu.com/p/115191339zhuanlan.zhihu.com 本次将用VBA的方式快 ...
VBA禁止更改工作表名称
'VBA禁止更改工作表名称 Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)If ...
bootstarp js设置列隐藏_隐藏工作表的行、列（第一种简单，第二种很坑，第三种最坑）...
各位朋友,你们好. 今天和你们分享怎样将工作表的行.列进行隐藏.我将分享两种方法: 一.直接隐藏通过选中行.列或者单元格,对行列进行隐藏效果见下图: 隐藏行,可以使用:右键菜单.Ctrl+9.开始选 ...
wps excel 怎么复制工作表？（移动或复制工作表）
如图,在工作表上右键–> 移动或复制工作表: 选择移动到哪个excel文件,打开多个excel它这会列表显示的然后选择移动到新的excel文件工作表的哪个位置,我一般选"移至最后&q ...

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

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

最新文章

热门文章