Dim StartCell As Range, LastCell As Range Set StartCell = ActiveSheet.Range("テーブル[列]").Offset(0, 0) Set LastCell = ActiveSheet.Range("テーブル[列]").End(xlDown)
' 資産に関連するもの更新 For i = StartCell.Row To LastCell.Row CalculateTable (ActiveSheet.Cells(i, 4)) Next i
としていたのですが、もっと簡単な書き方はないでしょうか？
Dim Cell As Range For Each Cell In ActiveSheet.Range("テーブル[列]") CalculateTable (Cell) Next とすると、 CalculateTable (Cell) で、オブジェクトが必要です、と怒られてしまいます。 orz
