这个问题在这里已经有了答案:
Run Time Error 13: Type Mismatch
(2 个回答)
8年前关闭。
多谢你们。
我需要复制并粘贴 2 张相互引用的工作表。我找到了一种将它们分组并同时复制/粘贴它们的方法。但是,我在尝试从每个单独的工作表中提取/更改/删除值时遇到了困难。或者我什至如何选择两张纸中的每一张。
下面是我对两张纸进行分组和复制/粘贴的代码。
Dim myArray As Variant
'select workbook
Workbooks("InsertTempSheets.xlsm").Activate
'group 2 sheets and make copies
myArray = Array("Working1", "Working2")
Sheets(myArray).Copy After:=Sheets(Sheets.Count)
感谢任何帮助。非常感谢。
最佳答案
我创建了一个包含两个工作表“Working1”和“Working2”的工作簿。我创建了一个包含您的代码的子(没有
Workbooks("InsertTempSheets.xlsm").Activate
) 并执行它。它完美地工作。您能否具体说明您发现了哪些“尝试从每个工作表中提取/更改/删除值的困难”?
任何细节、消息、错误都会有所帮助。
关于vba - 从复制的工作表中提取/更改/删除数据,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19887452/