vba - Excel VBA : Iterating over range parameter and change cell values

Question

我相信我想做的事情非常简单。我想迭代 Range 参数并更改该范围内每个单元格的值。

Function test(thisRange As Range)
    For Each c In thisRange.Cells
         c.Value = 1
    Next
End Function

上面是我想做的事情的一个简单示例，但似乎不起作用。当我调试此问题时，Excel 在遇到 c.Value = 1 时似乎会抛出错误。为什么这不起作用？

Answer 1

这对我有用

Option Explicit

Sub Sample()
    Dim ret
    ret = test(Sheets("Sheet1").Range("A1:A15"))
End Sub

Function test(thisRange As Range)
    Dim c As Range
    For Each c In thisRange.Cells
         c.Value = 1
    Next
End Function

顺便说一句，我们不需要使用函数。函数用于返回一个值。试试这个

Option Explicit

Sub Sample()
    test Sheets("Sheet1").Range("A1:A15")
End Sub

Sub test(thisRange As Range)
    Dim c As Range
    For Each c In thisRange.Cells
         c.Value = 1
    Next
End Sub