2

多谢你们。我需要复制并粘贴 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)

感谢任何帮助。非常感谢。

4

1 回答 1

0

我创建了一个包含两个工作表“Working1”和“Working2”的工作簿。我创建了一个包含您的代码的子（没有

Workbooks("InsertTempSheets.xlsm").Activate

) 并执行它。它完美地工作。您能否具体说明您发现了哪些“尝试从每个工作表中提取/更改/删除值的困难”？

任何细节、消息、错误都会有所帮助。

于 2013-11-11T19:35:25.080 回答