将一个单元格复制并粘贴到下一列的下两个单元格中答案

【问题标题】：Copy and pasting a cell for the next two cells down a column将一个单元格复制并粘贴到下一列的下两个单元格中
【发布时间】：2019-07-19 01:03:15
【问题描述】：

我目前有一个工作宏，可以复制和粘贴接下来两行的单元格。但是，如果我输入了多行数据，我需要它来工作。我无法找出正确的代码。我还想在每次迭代的末尾添加“0”、“1”和“2”。请参阅下文了解我理想的情况。

facctnum    facctsname  facctlname  macctnum     
    JW30982250
JW30982251
JW30982252

Sub CopyPaste()
Dim cell As Range
Lastrow = Range("B" & Rows.Count).End(xlUp).Row
For Each cell In Range("B2:" & "B" & Lastrow)
If cell.Value <> "" Then Range("B2:" & "B" & Lastrow).Copy
Range("B3:B4").PasteSpecial xlPasteValues
Next
End Sub

对于我的电子表格 B 列中的每个单元格，我想在其下方粘贴两次，然后在第一个单元格的末尾添加一个“0”，在第二个单元格重复的末尾添加一个“1”和一个“3 " 在第三次重复旁边。

【问题讨论】：

For Each cell... 这将循环通过B2，复制到B3和B4，然后是B3，复制到B4和B5，等等.您只想与B2、B5、B8 等合作吗？
我最初会在 B2 到 B10 行上获得不同的值。然后，我希望将这些不同的值中的每一个复制到其下方两次。所以我从 col b 中每一行的 (123, 555, 777) 变成了 (123, 123, 123, 555, 555, 555, 777, 777, 777) 并添加了“0”、“1”、和“2”。所以最终我有（1230、1231、1232、5550、5551、5552 等）希望这能进一步解决我的问题
是的，它确实澄清了 - 然后你必须插入单元格。另外，从下往上循环。
好的，谢谢，有简单的代码吗？

标签： excel vba

【解决方案1】：

类似这样，从下往上循环并在每次迭代时插入额外的两个单元格。

Sub CopyPaste()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row

    Dim i As Long
    For i = lastRow To 2 Step -1
        Range("B" & i).Offset(1).Resize(2).Insert Shift:=xlDown
        Range("B" & i).Offset(2).Value = Range("B" & i).Value & "2"
        Range("B" & i).Offset(1).Value = Range("B" & i).Value & "1"
        Range("B" & i).Value = Range("B" & i).Value & "0"
    Next i
End Sub

【讨论】：