Sub VBA小程序_遍历所有工作表_复制粘贴为数值()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Activate
sht.Cells.Copy
sht.Cells.PasteSpecial Paste:=xlPasteValues
Cells(1, 1).Select
Next
Application.CutCopyMode = False
End Sub
本文介绍了一段使用VBA编写的脚本,该脚本能够遍历Excel中所有工作表,并将所有单元格的内容复制粘贴为数值类型,实现批量转换。
5199





