Excel – 仅使用整数来获取范围的问题

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任务的问题。 当我尝试按照书面forms使用代码时，我收到一个错误。

 Run-time error '91' Object Variable or With block variable not set 

Answer 1

错误的原因是cellStart是一个Range 。

因此，您需要Set其Set为：

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

注意 ：你最后有一个“额外的”右括号，你有2 ))而不是只是)