将多个特定单元格复制到新工作簿中的特定范围

Question

我通常不会寻求帮助，但我想解决这个问题，这让我很疯狂。

我有一张包含2张（Sheet1和Sheet2）的Excel工作簿。 Sheet1中的数据是我需要的。

在Sheet1中，我有几个包含不同数据的列和行;我需要创建一个宏，允许将某些单元格（所有单元格中的所有单元格）复制到基于模型的新工作簿中（让我们称之为＆＃34; model.xlst＆＃34;）但是在某些情况下细胞

即：我需要从第5行复制对应于A5，C5和H5的单元格的值。然后，我需要将这些数据粘贴到新的工作簿中。 让我们举个例子：

• 来自Sheet1的A5进入新工作簿中的B3
• 来自Sheet1的C5进入新工作簿中的F8
• 来自Sheet1的H5进入新工作簿中的H6

此外，我必须为其他行重复此过程，因此我应该包含一个对话框来选择我想要开始的单元格。 （这个我至少管了！）

我尝试了很多脚本来实现这个过程，但我没有在这里说明问题。 如果有人能给我一个开始，我会感激你的帮助。

谢谢，

贾科莫

编辑：这是我到目前为止所处的位置。正如您所看到的，我设法创建了一个新的工作簿，即使它不是我想要使用的模型（它只是创建一个新的空白工作簿并同时打开模型），而且我是错过了整个细胞选择和复制部分，我尝试了很多东西，但他们没有工作。真的卡在这里。我在编码方面的经验不如你所见：）

Sub CopyToLog()
Dim SlctRange As Range, CopyRange As Range
Dim strTemplate As String: strTemplate = "MODELLO_LOGSHEET.xlsx"
Dim wb As Workbook
xTitleId = "SlctRange"
Set SlctRange = Application.Selection
Set SlctRange = Application.InputBox("Range to be selected :", xTitleId, SlctRange.Address, Type:=8)
Set wb = Workbooks.Add(strTemplate)
Set NewBook = Workbooks.Add