如何将工作表名数组输入到VBA Sheets.Copy中？

在VBA中，可以使用数组来传递工作表名给Sheets.Copy方法。下面是实现这个目标的示例代码：

Sub CopySheets()

    Dim sheetNames() As Variant
    Dim i As Integer
    
    ' 初始化工作表名数组
    sheetNames = Array("Sheet1", "Sheet2", "Sheet3")
    
    ' 复制工作表
    For i = LBound(sheetNames) To UBound(sheetNames)
        Sheets(sheetNames(i)).Copy After:=Sheets(Sheets.Count)
    Next i
    
End Sub

这段代码首先声明一个名为sheetNames的变量作为工作表名的数组。然后，我们使用Array函数将需要复制的工作表名添加到数组中。在示例中，我们将"Sheet1"、"Sheet2"和"Sheet3"添加到数组中。

接下来，使用一个循环来遍历工作表名数组，并使用Sheets(sheetNames(i)).Copy将每个工作表复制到当前工作簿中的最后一个工作表之后。

请注意，这只是一个简单示例，你可以根据需要进行修改。另外，如果数组中的某个工作表名不存在，将会引发运行时错误。因此，在使用数组前，确保数组中的工作表名是有效的。

希望这个答案对你有帮助！如果你还有其他问题，欢迎继续提问。