指定区域内容互换

天地一相

感谢帮助！详见截图附件。

nicleyuan

gwjkkkkk

Sub TEST()
Dim arr, brr, Rng As Range
Set Rng = [E3:G4]
    arr = Rng
    brr = Application.Index(arr, 1)
    With Rng
         .Cells(1, 1).Resize(, UBound(arr, 2)) = Application.Index(arr, 2)
         .Cells(2, 1).Resize(, UBound(arr, 2)) = Application.Index(arr, 1)
    End With
End Sub

gwjkkkkk

请楼主参考附件。。。

天地一相

gwjkkkkk 发表于 2022-12-24 10:19
请楼主参考附件。。。

先谢，测试不行。公式没了。

汉唐

请看附件，供参考

准提部林

Sub TEST()
Dim arr
With [E3:G4]
     .Replace "=", "xxx=", lookat:=xlPart
     arr = .Rows(1)
     .Rows(1) = .Rows(2).Value
     .Rows(2) = arr
     .Replace "xxx=", "=", lookat:=xlPart
End With
End Sub

cai2532

留个脚印，学习了。