我需要在Excel中移动其他所有行

我有一个信息表，但每个项目是横跨2行。

那么A1和A1 ， A3和A4 ， A5和A6等应该是哪一行？

我怎样才能移动

• A2至B1 ，
• A4至B3 ，
• A6到B5

等等？

非常感谢…每当你帮助我拯救一只小猫！

Answer 1

在B1中：

 =IF(MOD(ROW(),2)=1,A2,"") 

填写，复制 – >粘贴值并在ColB上sorting以将数据集中在一起。 删除“备用”行。

Answer 2

您也可以自动删除备用行，我有一个类似的function是这样的：

Dim r As Range，rows As Long，i As Long

 Set r = ActiveSheet.Range("whatever your range is") rows = r.rows.Count For i = rows To 1 Step (-1) If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).EntireRow.Delete Next