excel - 将备用单元格行剪切/复制/粘贴到下一列并在之后删除空行

Question

我在突出显示/复制一列中的交替行并将其粘贴到下一列并对齐时遇到了挑战。

这是一个屏幕截图:

Answer 1

以下代码假设您有两个单独的选项卡，SRC 和 DST，并且数据范围从第一个单元格开始。将在一个步骤中完成所有操作:

Public Sub CopyAlternate()
Dim i As Long

i = 2

While Len(Sheets("SRC").Cells(i, 1).Value) > 0
    Sheets("DST").Cells(i / 2 + 1, 1).Value = Sheets("SRC").Cells(i, 1).Value
    Sheets("DST").Cells(i / 2 + 1, 2).Value = Sheets("SRC").Cells(i + 1, 1).Value
    i = i + 2
Wend
End Sub