如何更改For…中的单元格范围每个循环？

Sub ChangeCellRangeInForLoop()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") ' 设置初始的单元格范围
    
    For Each cell In rng
        ' 在每次循环中处理单元格
        
        ' 进行你的操作，例如：
        cell.Value = "New Value"
        
        ' 更改单元格范围
        Set rng = rng.Offset(1) ' 将范围向下移动一行
    Next cell
End Sub