请教一下多维表格复制脚本怎么写！
当我设置好脚本代码后，点击按钮，复制指定的表格数据（如图示），求大佬
2 +1
2
+1
请
登录后发表评论哦
全部评论
2
Sub 复制表格数据()
' 假设要复制的表格在第一个工作表里
Dim 源工作表 As Worksheet
Set 源工作表 = ThisWorkbook.Sheets(1)
' 假设要复制到的位置在第二个工作表的A1开始
Dim 目标工作表 As Worksheet
Set 目标工作表 = ThisWorkbook.Sheets(2)
' 复制源工作表里的A1到C10区域的数据
源工作表.Range("A1:C10").Copy
' 粘贴到目标工作表的A1位置
目标工作表.Range("A1").PasteSpecial Paste:=xlPasteAll
' 可以选择性地清除剪贴板
Application.CutCopyMode = False
End Sub
回复
学习了
回复