循环这个Excelmacros？

我有下面这个代码，基本上我想能够使它从R16到R200和Range("G16").Select的整个范围内Range("G16").Select到G200 。

即当它变成R17时，则G16变成17，当R18变成G18时

因此，整个function将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行。