如何使用vba将两个暗淡的范围相乘

Sub MultiplyRanges()
    Dim range1 As Range
    Dim range2 As Range
    Dim resultRange As Range
    Dim cell1 As Range
    Dim cell2 As Range
    Dim resultCell As Range
    
    ' 设置要相乘的两个范围
    Set range1 = Range("A1:A5")
    Set range2 = Range("B1:B5")
    
    ' 设置结果范围
    Set resultRange = Range("C1:C5")
    
    ' 循环遍历每个单元格，并将相乘结果存储在结果范围中
    For Each cell1 In range1
        For Each cell2 In range2
            Set resultCell = resultRange.Cells(cell1.Row, 1)
            resultCell.Value = cell1.Value * cell2.Value
        Next cell2
    Next cell1
End Sub