1

我正在制作我的第一个宏，以便不必执行 2500 次复制粘贴。我有一个又长又复杂worksheet的变量，它接受两个变量作为输入并返回一个值，另一个sheet包含 2500 对这些变量。

为了将内容保存在同一张表中，我将公式表输入链接到我的变量J2和上，并将输出链接到. 我的目标是用该行的结果填充前两列旁边的第三列，方法是将两个值复制到& ，然后复制 from到第三列中的相应单元格。正如我目前的宏一样，它每次都返回到第三列中的同一个单元格，基于与最后一个活动单元格的偏移量。K2sheetL2J2K2L2L2

我已经尝试搜索有关如何增加最后一个粘贴操作或保持活动单元格引用宏的起点以将内容保持在同一行的帮助，但没有成功。任何帮助，将不胜感激。

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
4

1 回答 1

1 
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
于 2013-09-17T19:45:41.033 回答