VBA循环调用变体函数返回“Object required”错误排查

错误原因 #

你的cellv函数返回的是单元格的值（Variant类型的原始数据），并非单元格对象本身。当执行cellv(j, 1) = "aa"时，你试图给一个普通数据值赋值，这不符合VBA语法规则，因此触发「Object required」错误。而Debug.Print cellv(j,1)能正常运行，是因为这只是读取函数返回的数值，不需要修改数据本身。

解决方案 #

方案一：修改函数返回单元格对象 #

将cellv改为返回Range对象，这样就能直接对单元格进行赋值操作：

Public Function cellv(ByVal row As Variant, col As Integer) As Range
    Set cellv = ThisWorkbook.Sheets("Tree").Cells(row, col)
End Function

Public Sub testz()
    Dim j
    For j = 1 To 3
        cellv(j, 1).Value = "aa"
    Next j
End Sub

注意：返回Range对象时必须使用Set关键字，赋值时显式调用.Value属性（也可省略，VBA会默认使用Value，但显式书写更清晰）。

方案二：用Sub过程直接完成赋值 #

写一个专门用于设置单元格值的Sub过程，逻辑更直观：

Public Sub SetCellValue(ByVal row As Variant, col As Integer, newValue As Variant)
    ThisWorkbook.Sheets("Tree").Cells(row, col).Value = newValue
End Sub

Public Sub testz()
    Dim j
    For j = 1 To 3
        SetCellValue j, 1, "aa"
    Next j
End Sub

方案三：简化代码，直接在testz中操作 #

如果只是简单的批量赋值，也可以省去额外过程，直接在testz里完成：

Public Sub testz()
    Dim j
    For j = 1 To 3
        ThisWorkbook.Sheets("Tree").Cells(j, 1).Value = "aa"
    Next j
End Sub

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