VBA复制粘贴循环并转到下一个可用单元格

【问题标题】：VBA copy paste loop and go to next available cellVBA复制粘贴循环并转到下一个可用单元格
【发布时间】：2020-04-16 07:40:43
【问题描述】：

我需要将 b 列中的一个单元格中的值复制到 d 列中的 4 个单元格中，然后跳到 b 列中的下一个单元格并将值复制到 d 列中接下来的 4 个单元格中。

我试过这段代码

Sub copytest() 
    Dim i As Long
    For i = 1 To 394 ' i have a total of 394 cells 
        Range("B" & i).Copy Range("d1:d4") 
    Next i 
End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

假设 D 列是空的，试试这个

Sub copytest()
    Dim i As Long
    For i = 1 To 394 ' i have a total of 394 cells
       Range("B" & i).Copy Cells(Rows.Count, "D").End(xlUp).Offset(1).Resize(4) ' copy column B cirrent row i cell to column D four cells after last not empty one
    Next i
    Range("D1").Delete xlUp' delete D1 cell, since previous code left it empty
End Sub

【讨论】：