【Excel VBA编程】自动交换两行或两列数据,告别重复“剪切”与“插入”
- 2026-11-09 20:18:44
总是听到或看到有人问，编程好学吗？如何入门？多久能学会？它能做些什么？怎么写代码呀?执行过程中出问题了谁能帮帮我...如果你也有类似的问题那就赶快关注我的公众号，一起学起来吧！
在使用Excel时，经常会面临两行或两列数据交换。对于简单的、偶发的数据顺序调整，手动操作可能就足够了。但对于需要频繁、批量或基于复杂规则进行数据重排的需求，就需要寻求自动化帮助了
接下来就通过一则案例，分享如何快速交换Excel中的任意两行或两列数据
1 效果展示
无论是一次选中两行还是通过Ctrl键顺次选中独立的两行，只要是完整的两行，都可以实现数据自动交换
同理，也可以实现任意两列数据交换
2 代码及说明
2.1 操作步骤
打开你的.xlsm文档
按下 Alt + F11 快捷键，打开VBA编辑器
选择 “插入” -> “模块”，将文中全部代码复制粘贴到新模块中 回到Excel工作表界面，顺次选择【开发工具】【插入】【表单控件】，添加两个按钮并分别指定宏名“SwapSelectedRows”及“SwapSelectedColumns”，以此关联代码
以上操作完成后，即可选择需要交换的两行或两列进行互换。当然，除了使用表单控件外，也可以在其他代码中通过宏名直接调用相应的功能
2.2 代码实现
以行交换功能为例，其设计思路是要先判断选择结构，再进行数据操作。代码的逻辑可以分为两个主要场景：
选中两个独立的区域即通过Ctrl键依次选择了两行：判断方法是检查选中的区域数量（Areas.Count）是否为2；接着，进一步检查每个区域是否都恰好只包含一行（Rows.Count = 1）。这是为了确保操作对象是两行完整的数据，而不是某一行中的部分单元格
选中一个区域但包含两行：判断方法是选中的区域数量为1（Areas.Count = 1）时，但该区域的总行数（Rows.Count）为2
参考代码如下：
Sub SwapSelectedRows()Dim selectedRange As RangeDim arr1 As Variant, arr2 As Variant' 关闭屏幕更新和警告提示Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseOn Error GoTo ErrorHandler ' 错误处理Set selectedRange = Selection'场景1：选择了不相邻两行If selectedRange.Areas.Count = 2 Then' 检查每个区域是否恰好是一行If selectedRange.Areas(1).Rows.Count = 1 And selectedRange.Areas(2).Rows.Count = 1 Thenarr1 = selectedRange.Areas(1).Valuearr2 = selectedRange.Areas(2).ValueselectedRange.Areas(1).Value = arr2selectedRange.Areas(2).Value = arr1ElseMsgBox "请确保选择的两个区域都各自是单一行。", vbExclamationExit SubEnd If' 场景2：选择了相邻的两行ElseIf selectedRange.Areas.Count = 1 ThenIf selectedRange.Rows.Count = 2 Thenarr1 = selectedRange.Rows(1).Valuearr2 = selectedRange.Rows(2).ValueselectedRange.Rows(1).Value = arr2selectedRange.Rows(2).Value = arr1ElseMsgBox "请精确选择需要交换的两行数据。", vbExclamationExit SubEnd IfElseMsgBox "无法识别您的选择。请选择两行数据后再运行宏。", vbExclamationExit SubEnd IfMsgBox "交换成功！", vbInformationCleanUp:' 恢复设置Application.ScreenUpdating = TrueApplication.DisplayAlerts = TrueExit SubErrorHandler:MsgBox "交换过程中出现错误: " & Err.Description, vbCriticalResume CleanUpEnd Sub
同样的操作及处理逻辑，我们还可以举一反三编写任意两列交换代码：
Sub SwapSelectedColumns()Dim selectedRange As RangeDim arr1 As Variant, arr2 As VariantApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseOn Error GoTo ErrorHandler ' 错误处理Set selectedRange = Selection' 场景1：选择不相邻的两列If selectedRange.Areas.Count = 2 Then' 检查每个区域是否恰好是一整列If selectedRange.Areas(1).Columns.Count = 1 And selectedRange.Areas(2).Columns.Count = 1 Thenarr1 = selectedRange.Areas(1).Valuearr2 = selectedRange.Areas(2).ValueselectedRange.Areas(1).Value = arr2selectedRange.Areas(2).Value = arr1ElseMsgBox "请确保用鼠标选择的两个区域都各自是完整的一列。", vbExclamation, "提示"Exit SubEnd If'场景2：选择了相邻的两列ElseIf selectedRange.Areas.Count = 1 ThenIf selectedRange.Columns.Count = 2 Thenarr1 = selectedRange.Columns(1).Valuearr2 = selectedRange.Columns(2).ValueselectedRange.Columns(1).Value = arr2selectedRange.Columns(2).Value = arr1ElseMsgBox "请选择需要交换的两列数据（例如拖动选择A:B列）。", vbExclamation, "提示"Exit SubEnd IfElse' 选择不符合要求MsgBox "无法识别您的选择。请用鼠标选择两列后再运行宏。", vbExclamation, "提示"Exit SubEnd IfMsgBox "成功交换！", vbInformation, "完成"CleanUp:' 恢复设置Application.ScreenUpdating = TrueApplication.DisplayAlerts = TrueExit SubErrorHandler:MsgBox "交换过程中出现错误: " & Err.Description, vbCriticalResume CleanUpEnd Sub
3 结尾
好了，今天的编程知识到此结束了，又到每日分享冷知识的时间了
为何电脑中硬盘只看到C盘，而不见A盘和B盘呢？
早期的个人电脑没有硬盘，数据主要存储在软盘中。软盘驱动器占据了A和B两个盘符。后来硬盘成为标配，便顺理成章地从C盘开始分配盘符，这个习惯一直沿用至今
本公众号一直在不间断地分享免费的编程案例和实用技巧。无论您是用来提升自动化办公效率还是想提升自我，请关注我的公众号，解锁更多的编程知识
