VBA For循环添加操作时出现‘对象不支持此属性或方法’错误求解

首先看你遇到的Object doesn't support this property or method错误，最可能的原因是你误用了.前缀——你把自定义变量CurrentRowOffset写成了.CurrentRowOffset，这会让VBA误以为你要访问With块对象的CurrentRowOffset属性，但不管是Worksheet还是Range对象，都没有这个内置属性，自然就报错了。

快速修正方案 #

把变量前的.去掉就好！因为CurrentRowOffset是你自己定义的变量，不是With对象的成员，不需要用.来引用。比如：

With Worksheets("Data processing")
    ' 错误写法：.CurrentRowOffset（试图访问不存在的对象属性）
    ' 正确写法：直接用CurrentRowOffset
    .Cells(CurrentRowOffset - 1, 2).Value = YesterdaysOpen
    
    ' 这里可以继续添加循环内的其他操作
    ' 比如给变量赋值
    Dim todayClose As Double
    todayClose = .Cells(CurrentRowOffset, 3).Value
    ' 再比如写入计算结果到其他单元格
    .Cells(CurrentRowOffset - 1, 3).Value = todayClose * 1.01
End With

进一步排查要点 #

如果修正后还是有问题，你可以检查这几点：

• 确认With对象的类型：如果你的With块是针对某个Range（比如With Range("A2:Z100")），那.Cells是相对于这个Range的单元格（比如.Cells(1,1)指的是A2，而不是工作表的A1）。如果CurrentRowOffset是工作表的绝对行号，你需要改用.Parent.Cells(...)来引用整个工作表，或者直接用工作表对象。
• 变量有效性检查：确保YesterdaysOpen已经正确定义并赋值（比如如果是数值型，别存成文本），同时CurrentRowOffset - 1的结果不能是0或负数，否则会导致单元格引用无效。
• 完整对象引用测试：如果还是不确定，可以暂时去掉With块，用完整路径测试，比如：

  Worksheets("Data processing").Cells(CurrentRowOffset - 1, 2).Value = YesterdaysOpen
  

  如果这样能运行，说明问题确实出在With块内的变量引用方式上。

完整示例代码 #

这里给你一个包含循环、变量赋值、单元格操作的完整示例，你可以参考调整：

Sub ProcessDailyData()
    Dim YesterdaysOpen As Double
    Dim CurrentRowOffset As Integer
    Dim ws As Worksheet
    
    ' 初始化工作表和变量
    Set ws = Worksheets("Data processing")
    YesterdaysOpen = ws.Cells(2, 2).Value ' 假设昨日开盘价在B2
    
    ' 遍历数据行（从第3行到最后一行）
    For CurrentRowOffset = 3 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        With ws
            ' 写入昨日开盘价到上一行的B列
            .Cells(CurrentRowOffset - 1, 2).Value = YesterdaysOpen
            ' 获取当前行的收盘价
            Dim todayClose As Double
            todayClose = .Cells(CurrentRowOffset, 3).Value
            ' 计算涨跌幅并写入上一行的C列
            .Cells(CurrentRowOffset - 1, 3).Value = (todayClose - YesterdaysOpen) / YesterdaysOpen
            ' 标记处理状态
            .Cells(CurrentRowOffset - 1, 4).Value = "已处理"
        End With
    Next CurrentRowOffset
End Sub

这个示例里，With块明确绑定到工作表ws，所有单元格操作都通过.Cells正确引用，循环内可以自由添加变量赋值、计算、写入等操作，不会再出现对象属性错误。

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