Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 循环此Excel宏？_Vba_Excel_Excel 2010 - Fatal编程技术网
Fatal编程技术网
  • vba/
  • Vba 循环此Excel宏？

Vba 循环此Excel宏？

vba excel

Vba 循环此Excel宏？,vba,excel,excel-2010,Vba,Excel,Excel 2010,我在下面有这个代码，基本上我想让它能够完成从R16到R200和范围（“G16”）的整个单元格范围。选择到G200 i、 e.当它变为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],""""

我在下面有这个代码，基本上我想让它能够完成从
R16
到
R200
和
范围（“G16”）的整个单元格范围。选择
到
G200

i、 e.当它变为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



如果你把R数字放在括号里，它会使它相对于你所在的单元格。因此，当您在第2行时，R[14]将指向第16行，当您在第200行时，R[14]将指向第214行。
您好，谢谢您的回答：）-这是否也会增加G的范围？i、 e.当从h2变为h3时，G从g2变为g3？重复[h4、g4、/h5、g6等]是。R[14]C6表示在G列中向下移动14行。C6始终指向G列，与当前列无关（因为它不使用括号）。R[14]随着行的变化而变化。RC[4]表示保持在同一行，向右移动4列。在本例中，行和列都是相对于活动单元格的。

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