在 VBA Excel 中复制和粘贴循环以实现多个输出

所以我有以下 Excel 选项卡： 代码 1、代码 2、代码 3、LI、2015、2016、2017、2018、2019、2015 年输出等。

对于 2015 年，我在“2015”选项卡中有一个表，其中包含 10 行、3 个代码及其各自的 % 值的列表。例如

ref       name   yr     code 1   %     code 2   %      code 3    %
12345   NAME    2015    AB  50% CD  37% EF  13%
78901   NAME    2015    AX  54% OD  30% NG  6%
26572   NAME    2015    AE  60% CD  27% PF  13%

我需要将代码 1 'AB' 和 % '50%' 放入选项卡代码 1 中的单元格 B5 和 B6 中。与选项卡代码 2 中的 B5 和 B6 中的代码 2 和 3 'CS' 以及 '37%' 相同然后，这些会在单元格 F5:F183 的 LI 选项卡中生成一个模式，然后需要为每个参考复制该模式，并将每个参考粘贴到 2015 年选项卡的输出中。然后循环每个引用并重复粘贴输出。

到目前为止，我的复制和粘贴部分是这样的：

    Sub Copy_and_paste2()
        Dim rng2 As Range, cell2 As Range
        Dim i As Integer
        i = 3
        Set rng2 = Worksheets("2015").Range("D10:D21")
        For Each cell2 In rng2
           Worksheets("Code 1").Range("B5").Value = cell2.Value  
            Worksheets("2015 output").Range("A" & i & ":AW" & i).Value = Worksheets("LI").Range("F5:F183").Value
            i = i + 1
        Next cell2
End Sub

此时，我只是想让它适用于第一个没有 % 的代码，然后我可以尝试添加后面的代码，但这个也不起作用。有什么建议吗？

你的问题有点难以阅读，所以我根据我认为你的代码最明显的问题写了一个答案。如果我误读了您的查询或完全错过了要点，我深表歉意。

您似乎正在尝试复制以下内容

Worksheets("LI").Range("F5:F183")（179 个细胞）

to

Worksheets("2015 output").Range("A" & i & ":AW" & i)（49 格）

忽略您无法将 179 个条目复制到 49 个单元格的事实（它只会复制前 49 个条目） - 我认为您可能会看到第一个条目在所有 49 个单元格中重复？

这是因为您没有转置范围（在本例中，从列切换到行）。

尝试这样的转置：

Worksheets("2015 output").Range("A" & i & ":AW" & i).Value = _
                WorksheetFunction.Transpose(Worksheets("LI").Range("F5:F57").Value)

但请记住，我已将源范围更改为仅前 49 个单元格。您不必这样做，但我会强调这一点，以防您不知道这种情况正在发生。