vba - 範囲変数の操作...構文

Question

次のコードがあります。

Set rFinder = wkEnrollment.Range("EnrollmentIDs")  
With Range(rFinder)
    Set LastCell = .Cells(.Cells.Count)
End With

行を実行するとエラーになりますWith Range(rFinder)。 rFinderとして淡色表示されますRange。エラーは次のとおりです。

オブジェクト '_Global' のメソッド 'Range' が失敗しました

これの構文がわかりませんか？

score 1 · Accepted Answer

はすでに Range オブジェクトであるためrFinder、次のように単純に使用する必要があります。

Set rFinder = wkEnrollment.Range("EnrollmentIDs")  
With rFinder
    Set LastCell = .Cells(.Cells.Count)
End With

1 に答える 1