使用宏一次一个接一个地复制和粘贴一组值

Question

我有一组字符串，可以在不同单元格的第一行中说出A，B，C，D，E，F，G等。现在我要复制并粘贴A 5次，从第1行开始，然后是B 5次，然后是C，依此类推。我知道有涉及循环，但我无法通过它。如果有人能帮助我，我将不胜感激。

Answer 1

您可以使用以下内容：

Dim LastCol As Integer
Dim cel As Range
Dim count As Integer
Dim CurrentCel As Range

'Find the last used column in the first row
LastCol = Range("A1").End(xlToRight).Column
Set CurrentCel = Range("A1")

'Loop through each cell in the top row with the values in
For Each cel in Range(Cells(1,1),Cells(1,LastCol)).cells
    'Add the value in that cell to the list 5 times
    For count = 1 To 5
        CurrentCel.value = cel.value
        Set CurrentCel = CurrentCel.Offset(1,0)
    Next count
Next

请注意，这将覆盖当前A1中的值，并且只有在第一行中有完整列表时才会有效。

Answer 2

没有VBA

数据在 A1 至 G1 A2 中输入：

=INDEX($A$1:$G$1,1,ROUNDUP(ROWS($1:1)/5,0))

并复制下来：