如何让单元格E2成为宏代码中的工作表名称？

Question

这是一个简短的描述.. 1）工作簿2的工作表名称尚不清楚 2）然后，用户将在工作簿1 sheet1 Cell E2

中写入工作表名称

Dim x As Workbook
Dim y As Workbook
Set x = Workbooks.Open("")
Set y = Workbooks.Open("")

从这里开始，宏必须能够检测工作簿1中单元格E2中的工作表名称，并将其粘贴到下面的工作簿1（工作表：???）中，而无需手动键入。

    x.Sheets("Sheet1").Rows(1).Columns("B").CopyDestination:=y.Sheets("???").Range("B" &Rows.Count).End(xlUp).Offset(1)

Answer 1

对我来说你想要：

Dim x As Workbook
Dim y As Workbook
Set x = Workbooks.Open("")
Set y = Workbooks.Open("")
x.Sheets("Sheet1").Rows(1).Columns("B").Copy Destination:=y.Sheets(x.Sheets("Sheet1").Range("E2").Value).Range("B" &Rows.Count).End(xlUp).Offset(1)