Excel - 範囲を取得するためにintを使用する問題

Question

Dim cell As Range 
    Dim agentRange As Range 

    Set agentRange = ThisWorkbook.Worksheets("OtherSheet").Range(Range("S9").value, Range("T9").value) 

    For Each cell In agentRange 

     Dim col As Long 
     col = cell.column 

     Dim cellStart As Range 
     ***cellStart = ThisWorkbook.Worksheets("OtherSheet").Cells(3, col))*** 

     'Do Stuff 

    Next cell 

私はcellStartの割り当てに問題があります。コードを書かれたものとして使用しようとすると、エラーが発生します。

Run-time error '91' 

Object Variable or With block variable not set 

Answer 1

エラーの理由はcellStartがRangeです。

したがって、あなたがそれをSetする必要があります。

Set cellStart = ThisWorkbook.Worksheets("OtherSheet").Cells(3, col) 

注：あなたは、最後に1つの "余分な" 閉じ括弧を持っているあなたは2 ))だけではなく)