如何把上下行换一下

a

b

a

b

a

b

直觉上需要一个中间的变量存储，对vba不是太了解，有劳了

b

a

b

a

b

a

看看附件，是这个意思吗？

1. Sub huan()
   
2.     Dim i%, str$, xrow%
   
3.     xrow = Worksheets("sheet1").Range("a1").CurrentRegion.Rows.Count
   
4.     For i = 1 To xrow Step 2
   
5.         str = Worksheets("sheet1").Cells(i, 1).Value
   
6.         Worksheets("sheet1").Cells(i, 1).Value = Worksheets("sheet1").Cells(i + 1, 1).Value
   
7.         Worksheets("sheet1").Cells(i + 1, 1).Value = str
   
8.     Next
   
9. End Sub

复制代码

罗浮山混球 发表于 2014-10-28 23:39
看看附件，是这个意思吗？

xiexie nnnnnnnnnnnnnnnnnnnn

选取所需调整的整行，按住shiift键后用鼠标拖放到所需位置即可。