VBA交换两行单元格区域后目标行为空的问题求助

你的代码逻辑框架是交换两个区域值的常规思路，但出现temp1对应区域变空的核心原因是：
当执行temp1 = temp2时，你用temp2区域的原始值覆盖了temp1区域——如果temp2（F6:U6）原本是空的，temp1自然会被清空。后续temp2 = x只是把temp1的原始值（存在变量x中）赋值给了temp2，所以最终呈现出temp2有数据、temp1为空的结果。

修正后的代码 #

可以明确使用.Value属性让逻辑更清晰（Range对象的默认属性就是Value，显式写出能避免歧义），同时确保交换逻辑正确：

Sub SwapRows()
    Dim tempData As Variant
    Dim range1 As Range, range2 As Range
    
    Set range1 = Range("F4:U4")
    Set range2 = Range("F6:U6")
    
    ' 保存第一个区域的原始数据到内存数组
    tempData = range1.Value
    ' 将第二个区域的原始数据赋值给第一个区域
    range1.Value = range2.Value
    ' 将保存的原始数据赋值给第二个区域
    range2.Value = tempData
End Sub

额外说明 #

• 执行代码前需确认range2（F6:U6）本身有数据，这样交换后两个区域都会得到对方的原始值，不会出现空值。
• 用Variant变量存储区域数据是高效的做法，它会直接把单元格数据读入内存数组，比逐个单元格复制的速度快很多。

内容的提问来源于stack exchange，提问作者LibbyB