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

这是一个简短的描述。。 1） 工作簿2的工作表名称未知 2） 然后，用户将工作表名称写入workbook1 sheet1单元格E2

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

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

    x.Sheets("Sheet1").Rows(1).Columns("B").CopyDestination:=y.Sheets("???").Range("B" &Rows.Count).End(xlUp).Offset(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)

---

也许是早上，也许我的头脑还没准备好，但我几乎不明白你所问的任何部分。。。是否要复制包含E2的一系列数据，然后将工作表重命名为E2值？

sheetName=[E2]：工作簿（“其他工作簿”）。工作表（sheetName）。是否激活。我想要的是单元格E2中的值将是工作表名称。x.Sheets（“Sheet1”）。行（1）。列（“B”）。CopyDestination:=y.Sheets（“单元格E2中的工作表名称”）。范围（“B”&行。计数）。结束（xlUp）。偏移量（1）哪张工作表的E2？我发布的代码使用工作簿x的Sheet1上的E2，这是您要求的。