Excel 将备用单元格行剪切/复制/粘贴到下一列&;删除后面的空行
在突出显示/复制一列中的备用行并将其粘贴到下一列并对齐时,我遇到了挑战 以下是一个屏幕截图:Excel 将备用单元格行剪切/复制/粘贴到下一列&;删除后面的空行,excel,vba,excel-2007,Excel,Vba,Excel 2007,在突出显示/复制一列中的备用行并将其粘贴到下一列并对齐时,我遇到了挑战 以下是一个屏幕截图: 以下代码假定您有两个单独的选项卡,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 = Shee
以下代码假定您有两个单独的选项卡,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
您可以使用此代码并根据口味进行调整:
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
在用字母重建示例时(为了更快地检查),这对我很有用。
非常感谢您的回答,这很有帮助,但是,数据实际上位于同一选项卡上,只需在下一列中剪切/复制一些单元格,然后删除它留下的空单元格(行)。再次感谢。