- ·上一篇：损坏的excel要怎么修复,损坏,修复
- ·下一篇：excel表格总计怎么一起弄,总计,表格
excel表格里怎么把两行互换,互换,两行,表格
2025-12-20 09:37:20
1.在EXCEL中如何将两行内容互换,粘贴方法太死板
可用如下VBA程序：
Sub 交换两行（）
Dim i1 As Long, i2 As Long
Dim rag As Range, rag1 As Range, rag2 As Range
i1 = Val(InputBox("i1="))
i2 = Val(InputBox("i2="))
Rows(i1 & ":" & i1).Select
Selection.Copy
Rows("65536:65536").Select
ActiveSheet.Paste
Rows(i2 & ":" & i2).Select
Application.CutCopyMode = False
Selection.Copy
Rows(i1 & ":" & i1).Select
ActiveSheet.Paste
Rows("65536:65536").Select
Application.CutCopyMode = False
Selection.Copy
Rows(i2 & ":" & i2).Select
ActiveSheet.Paste
Rows("65536:65536").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A" & i1).Select
End Sub