Excel 基于动态数字复制单元格

所以我正在做一个更大的项目，我遇到了困难。现在我有一个项目列表，我需要做的是将它们从一张纸上复制并粘贴到另一张纸上，但它需要有一个偏移量

所以我需要做的是代码查看reglatory名称并将其与另一个表匹配。然后在该表中，它具有要在键下传递的值。我可以复制这些值并将其循环x次，但如何使循环数与数据集中的特定字段匹配呢

第二件事是，一旦网络单元名称和reglatory名称被复制并排序，我如何复制密钥，即国家/地区字段代码？我可以将该表值命名为变量吗

Sub Main()
 Dim LastRow As Long
 Dim LR As Long
 Dim I as long
 LastRow = Sheet1.Cells.Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

For I= 1 to 'Dynamic range from key count'
    Sheet8.Range(Cells(2, 1), Cells(LastRow, 3)).Copy Destination:=Sheet1.Range("ALR:CLR" & LastRow)
    LR=Range("B" & Rows.Count).End(xlUp).Value
Next I   
 'autosort sub'

End Sub

---

如果您能帮我把这篇文章整理出来，我将不胜感激。

我真的无法将您的代码转录到一个工作样本中，因为有太多的内容已经被编辑出来了，但我相信我理解您的要求。这里有一些抽象的例子

Sheet1中的字段列表从K5开始，这将把值存储到数组中

Dim vFLDs As Variant
With Sheet1
    vFLDs = .Range(.Range("K5"), .Range("K5").End(xlDown))
End With

您不必循环reglatory name sp的副本？数据，只需将目标扩展到vFLDs中的行数

最后，将vFLDs中的值传输到最后一列

Sheet1.Range(<the next empty column> & LastRow).Resize(UBound(vFLDs), 1) = vFLDs

---

所以..您想将带有国家、字段、…、井号的单元格范围复制到另一张表上每个单元名称的关键字段？？发现很难理解。你能举个例子吗？我不知道你的图片中的第一张和第八张是什么，等等。

Sheet1.Range(<the next empty column> & LastRow).Resize(UBound(vFLDs), 1) = vFLDs

Set rngSource = Worksheets("Data We Pull From").Range("A2:A12")
Set rngTarget = Worksheets("Finished Product").Range("A2")
Set rngList = Worksheets("How Much We Need to Offset By").Range("A1:A12")

For Each tmpCell In rngSource
    rngTarget.Resize(12, 3).Value = tmpCell.Resize(1, 3).Value
    rngTarget.Offset(, 3).Resize(12).Value = rngList.Value
    Set rngTarget = rngTarget.Offset(12)
Next tmpCell