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