常用功能加载宏——单元格区域数据交换

<button id="rbbtnSwapRange" label="交换&#13;" supertip="交换两列单元格数据" size="large" onAction="rbbtnSwapRange" imageMso="DiagramReverseClassic"/>

Sub rbbtnSwapRange(control As IRibbonControl)
    Call MRange.SwapRangeValue
End Sub

Sub SwapRangeValue()
    Dim rng As Range
    Dim tmp() As Variant
    Dim tmpv As Variant
    
    '确保选中的是单元格
    If TypeName(Selection) = "Range" Then
        Set rng = Selection
        
        If rng.Columns.Count <> 2 Then
            MsgBox "只处理2列数据的情况"
            Exit Sub
        End If
        
        If rng.Rows.Count = 1 Then
            '单行的情况下，不能使用数组
            tmpv = rng.Columns(1).Value
            rng.Columns(1).Value = rng.Columns(2).Value
            rng.Columns(2).Value = tmpv
        Else
            '记录第一列数据
            tmp = rng.Columns(1).Value
            '第一列数据等于第二列数据
            rng.Columns(1).Value = rng.Columns(2).Value
            '第二列数据等于记录的第一列数据
            rng.Columns(2).Value = tmp
        End If
    End If
    
    Set rng = Nothing
    Erase tmp
End Sub