如何在Excel VBA中用另一个值范围更改值范围

Sub ChangeValuesWithAnotherRange()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim cell1 As Range
    Dim cell2 As Range
    
    ' 设置第一个值范围
    Set rng1 = Range("A1:A10")
    
    ' 设置第二个值范围
    Set rng2 = Range("B1:B10")
    
    ' 确保两个值范围的大小相同
    If rng1.Rows.Count <> rng2.Rows.Count Or rng1.Columns.Count <> rng2.Columns.Count Then
        MsgBox "两个值范围的大小不一致"
        Exit Sub
    End If
    
    ' 循环遍历两个值范围
    For Each cell1 In rng1
        For Each cell2 In rng2
            ' 将第二个值范围的值赋给第一个值范围
            cell1.Value = cell2.Value
            Exit For ' 如果只想更改第一个值范围的第一个单元格，可以注释掉这行代码
        Next cell2
    Next cell1
End Sub