Question

我需要将excel中的此列表转换为每5行更改为下一行的列表。非常感谢任何帮助！

所以我试图转向

VS1M001WT1
VS1M090RD1
VS1M116BN1
VS1M116NP1

到

VS1M001WT1
VS1M001WT1
VS1M001WT1
VS1M001WT1
VS1M001WT1
VS1M090RD1
VS1M090RD1
VS1M090RD1
VS1M090RD1
VS1M090RD1
VS1M116BN1
VS1M116BN1
VS1M116BN1
VS1M116BN1
VS1M116BN1
VS1M116NP1
VS1M116NP1
VS1M116NP1
VS1M116NP1
VS1M116NP1

Answer 1

实施此宏。假设您的列表在A列中，并且您希望在B列中获得所需的结果。

Sub aa()
rowCnt = Cells(Rows.Count, "A").End(xlUp).Row - 1
Range("a1").Select

For j = 0 To rowCnt
ActiveCell.Offset(j, 0).Activate
Selection.Copy
Range("b1").Select
ActiveCell.Offset(5 * j, 0).Select
Selection.PasteSpecial
ActiveCell.Copy

For i = 1 To 4
ActiveCell.Offset(1, 0).PasteSpecial
ActiveCell.Copy
Next i
Range("a1").Select
Next j
End Sub

Excel列表一次变为5行

1 个答案: