Excel VBA – 使用dynamic粘贴位置从一个工作簿复制和粘贴到另一个工作簿

在这些工作簿（“VAL”）的每个工作表中，我有50个具有相同范围“SensResultsCopy”的Excel工作簿。 我想将这些表格中的数据复制到打开的工作簿中。 要复制的工作簿是dynamic的，取自范围（“ProjModel”），但我不知道如何使粘贴位置变为dynamic。 来自每个工作簿的数据需要进入其自己的工作表，该工作表具有指定范围的数据需要到达的位置，因此工作簿1的数据需要放在名为“1”的工作表中，名为“SensResPaste1”的工作簿2的数据需要进入名为“2”的工作表和名为“SensResPaste1”的范围等。我想使用“ActiveProjModel”范围来确定VBAdynamic的这一部分来确定工作表和范围“PasteRange”作为范围被粘贴到：

y.Sheets（ “1”）。范围（ “SensResPaste1”）

目前，我只知道如何做到这一点的具体表和范围，即在上面的例子，表1。完整的代码如下。 谢谢！

Sub DataCapture2() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.DisplayAlerts = False Dim x As Workbook Dim y As Workbook Dim ws1 As Worksheet '## Open both workbooks first: Set y = ThisWorkbook Set x = Workbooks.Open(Range("ProjModel")) 'Copy from x: x.Sheets("VAL").Range("SensResultsCopy").Copy 'Paste to Worksheet in y: y.Sheets("1").Range("SensResPaste1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Close x: x.Close