VBA循环异常：第二次While循环触发Object Required错误

嘿，我帮你排查下这个VBA循环报错的问题——你遇到的第二次循环触发「Object Required」错误，大概率是对象引用的逻辑出了问题，结合你给的代码片段，我整理了几个关键问题点和修复方案：

1. 未显式声明对象类型，埋下类型混淆隐患 #

你代码里的startCell和currentCell没指定类型，VBA默认会把它们当作变体类型处理。但currentCell是Range对象，这种模糊声明很容易导致后续引用时的类型错误。建议改成：

Dim startCell As String
Dim currentCell As Range

显式声明类型能让VBA帮你提前拦截很多潜在错误。

2. 循环逻辑的对象引用漏洞 #

你的循环条件写的是While currentCell > 0，这里VBA会自动取currentCell的Value属性来比较，但循环体内你用currentCell.Offset(counter, 2)来获取地址——如果counter在循环中没有递增（你的代码片段里没看到counter = counter + 1的操作），第二次循环时要么会重复操作同一单元格，要么当counter意外变化后，Offset指向的单元格可能无效（比如超出工作表范围），这时尝试访问它的属性就会触发「需要对象」的错误。

另外，如果你后续的If判断里直接写currentCell.Offset(counter, 2) > ...，这里同样是把Range对象和值比较，虽然VBA会自动取Value，但如果该单元格是空值或错误值（比如#N/A），就会直接报错。

3. 修正后的完整代码框架 #

我帮你调整了循环逻辑，确保对象引用始终有效，还加了边界防护：

Private Sub Email_Click()
    Dim counter As Integer
    Dim address As String
    Dim startCell As String
    Dim currentCell As Range
    
    counter = 0
    startCell = "B5"
    ' 明确绑定起始单元格对象
    Set currentCell = ThisWorkbook.Worksheets("Follow Up").Range(startCell)
    
    ' 循环条件改为直接检查单元格值，避免对象直接参与比较
    While currentCell.Offset(counter, 0).Value > 0
        ' 先判断目标单元格是否非空，避免空值引发的错误
        If Not IsEmpty(currentCell.Offset(counter, 2).Value) Then
            address = currentCell.Offset(counter, 2).Value
            ' 这里插入你发送邮件的逻辑代码
        End If
        
        ' 必须递增计数器，否则会无限循环
        counter = counter + 1
        
        ' 额外防护：防止循环超出工作表已使用区域，避免无效引用
        If currentCell.Offset(counter, 0).Row > ThisWorkbook.Worksheets("Follow Up").UsedRange.Rows.Count Then
            Exit While
        End If
    Wend
End Sub

4. 快速调试技巧 #

如果还是报错，你可以在循环内加断点，检查第二次循环时：

• currentCell.Offset(counter, 2)是否指向一个存在的单元格
• 该单元格的Value是否是有效数据（不是错误值或空值）

内容的提问来源于stack exchange，提问作者Xellinus