Excel VBA：遍历范围参数和更改单元格值

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