循环此Excel宏？

Question

我在下面有这个代码，基本上我希望能够让它完成从R16到R200和Range("G16").Select到G200的所有单元格。< / p>

即。当它变为R17时，G16变为17，当R18变为G18等时

因此，整个函数会将R2更改为R3而G2更改为G3，再次启动并将R3更改为R4，{ {1}}到G3等等。

G4

Answer 1

Sub Search2()

    With Range("h2:h385")
        .FormulaR1C1 = "=IF(ISNUMBER(SEARCH(R[14]C6,RC[4])),RC[2],"""")"
    End With

    Range("G16").FormulaR1C1 = "=SpecialConcatenate(C[1])"
    Application.Run "Test.xlsm!CopyPaste"

End Sub

如果你把R号放在括号中，它会使它相对于你所在的任何一个单元格。所以当你在第2行时，R [14]将指向第16行，当你在第2行时它会指向第214行排在第200行。