Excel VBA 每四个单元格复制/粘贴循环

Question

我正在寻找一个宏，复制 B 列中的每 4 个单元格（从 B3 开始），然后将其粘贴到 A 列中（粘贴是连续 4 个单元格。因此 B3 中的值将粘贴到 A3,A4 ,A5,A6. 然后宏应该复制 B7 并将其粘贴到 A7,A8,A9,A10...等

我复制的单元格 B3 是合并单元格 (B3-B6)。

最终，我试图达到可以按日期过滤列表的程度，但是当按合并单元格过滤时，会导致问题。

我添加了一张图像来显示第一个迭代

我可以获取初始副本并粘贴下来，但是当涉及到为每个循环制作循环时，我开始感到困惑

Answer 1

Set ws = ActiveSheet
LastRow = ws.Cells.Find(What:="*", After:=ws.Range("a1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
StartRow = 3
SizeOfMergeCell = 4

For i = StartRow To LastRow Step SizeOfMergeCell
    For j = 0 To SizeOfMergeCell - 1
        ws.Cells(i + j, "A").Value = ws.Cells(i, "B").Value
    Next j
Next i