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

平时工作中经常需要收集资料，有些人习惯把名称写前面，型号写后面，有些人又喜欢型号在前面，名称在后面，汇总的时候就会造成不便，复制过来的数据对不上，不得不手动去调整。

如果经常有这种情况，那么做一个按钮实现交换两列数据就非常方便了，实现效果：

首先添加一行customUI.xml代码：

<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

这里实现的功能限制一定要是2列的数据交换，这个可以根据自己实际需要来改变，也可以用InputBox来选择要交换的数据，提高程序的灵活性。