3

R16以下にこのコードを示します。基本的には、 toR200とRange("G16").Selecttoのセル範囲全体を実行できるようにしたいと考えていますG200。

つまり、R17 に変更すると G16 は 17 になり、R18 に変更すると G18 になります。

したがって、関数全体が と に変化して実行さR2れ、再び開始され、、 などに変化します。R3G2G3R3R4G3G4

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
4

1 に答える 1

2 
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 番号を角かっこで囲むと、現在のセルに相対的になります。したがって、R[14] は、行 2 にいるときは行 16 を指し、行 2 にいるときは行 214 を指します。行 200。

于 2010-07-01T18:21:00.293 に答える