vba - 循环这个 Excel 宏？

Question

我下面有这段代码，基本上我希望能够使其执行从 R16 到 R200 和 Range("G16 ").选择到G200。

即当它变为R17时，G16变为17，当R18变为G18时，依此类推。

因此，整个函数运行时将 R2 更改为 R3，将 G2 更改为 G3，再次开始并更改 R3到R4，G3到G4等

Sub Search()

Range("H2").Select
ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(SEARCH(R16C6,RC[4])),RC[2],"""")" ' Edit RXX value
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H385")
Range("H2:H385").Select
Range("G16").Select ' Edit GXX value
ActiveCell.FormulaR1C1 = "=SpecialConcatenate(C[1])"
Range("G11").Select
Application.Run "Test.xlsm!CopyPaste"
Range("H2").Select

End Sub

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 行。