如何在EXCEL中利用宏操作实现两个表格间数据的调取
从网上找到以下代码:Subzhantie()Range("A11:A63").CopyRange("W11:W63").PasteSpecialPaste:=xlPast...
从网上找到以下代码:
Sub zhantie()
Range("A11:A63").Copy
Range("W11:W63").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
这是在同一表格中实现的A11:A63内容移到W11:W63,实验是成功的,
我想请教以下怎样在同一文件不同工作表之间实现这种操作 展开
Sub zhantie()
Range("A11:A63").Copy
Range("W11:W63").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
这是在同一表格中实现的A11:A63内容移到W11:W63,实验是成功的,
我想请教以下怎样在同一文件不同工作表之间实现这种操作 展开
1个回答
展开全部
Sub zhantie()
Sheets(1).Range("A11:A63").Copy
Sheets(2).Range("W11:W63").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Sheets(1)指位置排在第1位的工作表(从左往右数)
Sheets(2)指位置排在第2位的工作表(从左往右数)
这种方式可以不用理会工作表名称的变化(比如第1张表重命名了不会影响vba的执行)
还有一种引用工作名的方法:
Sheets(“sheet1”).Range("A11:A63").Copy
Sheets(“sheet1”)指名为sheet1的工作表,跟位置无关,但一旦工作表重命名了,vba执行时找不到名叫sheet1的工作表时就会报错。
Sheets(1).Range("A11:A63").Copy
Sheets(2).Range("W11:W63").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Sheets(1)指位置排在第1位的工作表(从左往右数)
Sheets(2)指位置排在第2位的工作表(从左往右数)
这种方式可以不用理会工作表名称的变化(比如第1张表重命名了不会影响vba的执行)
还有一种引用工作名的方法:
Sheets(“sheet1”).Range("A11:A63").Copy
Sheets(“sheet1”)指名为sheet1的工作表,跟位置无关,但一旦工作表重命名了,vba执行时找不到名叫sheet1的工作表时就会报错。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询