Question

我有多行数据，我试图创建另一行并逐行将列F带入新的D列。我有创建新的行宏设置，但是我怎么能有一个循环将F中的单元格复制到D中的新行？

基本上像：

Range("F3").Select
Selection.Cut
Range("D4").Select
ActiveSheet.Paste

每隔一行。

所以就像下一个会把＆＃34; F5＆＃34;进入＆＃34; D6＆＃34;，并继续这直到表格结束。

Answer 1

您可以使用For循环，Step 2跳过两个单元格：

Sub copyMove()
Dim lastRow As Long, i As Long
Application.ScreenUpdating = False
lastRow = Cells(Rows.Count, 6).End(xlUp).Row

For i = 3 To lastRow Step 2
    Cells(i + 1, 4).Value = Cells(i, 6).Value
    Cells(i, 6).Value = ""
Next i
Application.ScreenUpdating = True
End Sub

（这假设您只需要这些值。如果您需要一个公式，那么需要稍微调整一下，所以请告诉我。）

宏 - 每隔一行复制和粘贴单元格

1 个答案: