在excel中使用宏比较两行的选定单元格并计算偏差

Sub CompareAndCalculateDeviation()
    Dim rng As Range
    Dim cell1 As Range, cell2 As Range
    Dim deviation As Double
    
    ' 选择要比较的两行数据的范围
    Set rng = Selection
    
    ' 检查选定范围是否包含两行数据
    If rng.Rows.Count <> 2 Then
        MsgBox "请选择包含两行数据的范围。"
        Exit Sub
    End If
    
    ' 获取第一行和第二行的单元格
    Set cell1 = rng.Rows(1).Cells(1)
    Set cell2 = rng.Rows(2).Cells(1)
    
    ' 检查选定单元格是否为数字
    If Not IsNumeric(cell1.Value) Or Not IsNumeric(cell2.Value) Then
        MsgBox "选定单元格必须包含数字。"
        Exit Sub
    End If
    
    ' 计算偏差
    deviation = cell2.Value - cell1.Value
    
    ' 在下一行插入计算结果
    rng.Rows(2).Offset(1).Insert Shift:=xlDown
    rng.Rows(2).Offset(1).Cells(1).Value = "偏差"
    rng.Rows(2).Offset(1).Cells(2).Value = deviation
    
    ' 清除选定范围的格式
    rng.ClearFormats
End Sub