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

Question

我有一个信息表，但每个项目都是两行。

那么，A1和A 2，A3和A4，A5和A6应包含1个订单项，等

我该如何移动

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

等？

非常感谢...每次你帮助我，你都会拯救一只小猫！

Answer 1

在B1：

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

填写，复制 - ＆gt;粘贴值并在ColB上排序以将数据组合在一起。删除“备用”行。

Answer 2

你也可以自动删除备用行，我有类似的功能：

Dim r As Range，行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