如何使用VBA选择一对图纸并将它们复制到新的wb？

Question

‘这里是新手，非常感谢您的耐心等待！
我有一个包含多个工作表的工作簿，我需要：

1）选择工作表对（索引和索引+1）

2）将它们复制到新的工作簿中

3）使用引用的单元格（例如A1）中的任何标签重命名工作表

4）然后对工作簿中的每对工作表重复（数十对）

由于我是vba的新手（只参加了一堂课），所以我很容易感到困惑。 到目前为止，我仅有的一部分是引用单元格A1将工作表重命名为该单元格中的任何文本字符串。 我无法弄清其余的一切。 我认为这与worksheet.index或worksheets（index）和某种循环有关，其中索引加2并在复制之前激活该工作表和下一个工作：工作表1和2，然后工作表3和4，等等。 。

Private Sub Worksheet_Calculate() 
 Dim s As String 
 s = "sheet 1" 
 If Range("A1").Value <> "" Then 
     s = Range("A1").Value 
 End If 
 ActiveSheet.Name = s 
 End Sub 

以我的理解，必须检查单元格A1以确保它不为空，因为您不能使用空值命名工作表。 在这一点上，其余部分的用法和语法目前还远远超出了我，但是我真的很想学习，并最终成为该社区的贡献者。 我是刚上班的新人，只能打零工，因此为老板提供解决方案可能意味着我成为永久人。 因此，非常感谢！！！

Answer 1

Option Explicit

Private Sub Worksheet_Calculate()
Dim s As String
Dim ws As Worksheet
Dim wsi As Worksheet

Set wsi = Sheets("Sheet4")' You need to create a name for the sheet to paste into

For Each ws In ActiveWorkbook.Worksheets
If Not IsEmpty(ws.Range("A1")) and ws.name = "INDEXCOPY" Then
     ws.Name = ws.Range("A1").Value
     ws.Range("A1:" & ws.Range("A1").SpecialCells(xlCellTypeLastCell).Address).Copy _
     Destination:=wsi.Range("A1")
End If
Next ws
End Sub

这段代码可以帮助您入门，但是，您需要一种方法来区分要从中复制的索引表和要复制到的索引表。 您将需要添加其他if语句，请参见上面的注释。 我会在这里-http: //www.rondebruin.nl/win/s3/win006.htm