Question

我目前有一个工作宏，该宏可以复制并粘贴下两行的单元格。但是，如果我输入了多行数据，则需要使用它。我找不到正确的代码。我还想在每次迭代的末尾添加“ 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”处添加“在第三个重复项旁边。

Answer 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

在列中复制并粘贴下两个单元格的单元格

1 个答案: