Excelmacros从顺序行复制到常量位置，然后从常量位置复制到匹配行
我正在做我的第一个macros，为了节省不得不执行2500复制粘贴。 我有一个长而复杂的worksheet ，它将两个variables作为input并返回单个值，另一个工作sheet包含2500对这些variables。
为了把事情保持在同一张表中，我将公式表input连接到我的variablessheet上的J2和K2 ，并将输出连接到L2 。 我的目标是通过将这两个值复制到J2 ＆ K2 ，然后从L2复制到第三列中相应的单元格来填充该行的前两个旁边的第三列。 正如我的macros现在，它每次返回到第三列中的同一个单元格，基于作为最后一个活动单元的L2的偏移量。
我已经尝试search如何增加最后的粘贴操作，或保持活动单元格引用macros的起始点，以保持在同一行，但不成功的帮助。 任何帮助，将不胜感激。
ActiveCell.Range("A1:B1").Select Selection.copy Range("J2:K2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("L2").Select Application.CutCopyMode = False Selection.copy ActiveCell.Offset(43, -5).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Sub TT() Dim sht As Worksheet, c As Range Set sht = ActiveSheet For Each c In sht.Range("A1:A2500").Cells sht.Range("J2").Value = c.Value sht.Range("K2").Value = c.Offset(0, 1).Value sht.Calculate c.Offset(0, 2).Value = sht.Range("L2").Value Next c End Sub