所以我有以下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％'放入选项卡Code 1中的单元格B5和B6中。对于代码2和3，选项卡Code 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格）
至
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个单元格。您不必这样做，但如果您不知道这种情况正在发生，我将重点介绍。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句