减小字体
增大字体- ·上一篇教育：损坏的excel要怎么修复,损坏,修复
- ·下一篇教育：excel表格总计怎么一起弄,总计,表格
excel表格里怎么把两行互换,互换,两行,表格
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
评论内容只代表网友观点，与本站立场无关！
评论摘要(共 0 条，得分 0 分，平均 0 分)