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

【问题标题】：Cut/copy/paste alternate cell rows onto the next column & delete empty rows after将备用单元格行剪切/复制/粘贴到下一列并在之后删除空行
【发布时间】：2019-06-01 21:05:16
【问题描述】：

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

截图如下：

【问题讨论】：

标签： excel vba excel-2007

【解决方案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

【讨论】：

非常感谢您的回答，这很有帮助，但是数据实际上在同一个选项卡上，只需在下一列剪切/复制一些单元格，然后删除空单元格（行）它离开了。再次感谢。

【解决方案2】：

你可以拿下这段代码，调整自己的口味：

Sub alternate()
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer

    i = 0
    j = 0
    n = 0

    With ActiveSheet        
        For Each c In .Range("A4:A16")
            .Cells(20 + j, 1 + i).Value = c.Value
            If n = 0 Or n Mod 2 = 0 Then
                i = 1
                j = j
            Else
                i = 0
                j = j + 1
            End If
            n = n + 1
        Next c
    End With    
End Sub

在用字母重建您的示例时，这对我有用（以便更快地检查）。

【讨论】：