excel - 在 Excel 中复制值 N 次

Question

我有简单的清单：

  A     B
item1   3
item2   2
item3   4
item4   1

需要输出：

  A
item1
item1
item1
item2
item2
item3
item3
item3
item3
item4

Answer 1

这是不使用 VBA 的一种方法：

1. 在 A 的左侧插入一列，因此您当前的 A 和 B 列现在是 B 和 C。
2. 放入1A1
3. 放入=A1+C1A2并向下复制到A5
4. 在 B5 中放置一个空字符串，只需'在单元格中输入一个单引号 ( )
5. 将 a1放入 E1，a2放入 E2，然后向下复制，得到 1, 2, ..., 10
6. 输入=VLOOKUP(E1,$A$1:$B$5,2)F1并复制下来。

它应该如下所示：

| A  | B     | C | D | E  | F     |
|----|-------|---|---|----|-------|
| 1  | item1 | 3 |   | 1  | item1 |
| 4  | item2 | 2 |   | 2  | item1 |
| 6  | item3 | 4 |   | 3  | item1 |
| 10 | item4 | 1 |   | 4  | item2 |
| 11 |       |   |   | 5  | item2 |
|    |       |   |   | 6  | item3 |
|    |       |   |   | 7  | item3 |
|    |       |   |   | 8  | item3 |
|    |       |   |   | 9  | item3 |
|    |       |   |   | 10 | item4 |

Answer 2

这是VBA解决方案。我不太明白 VBA 不会是动态的评论。它就像你做的那样充满活力，就像一个公式。请注意，此宏将擦除 Sheet1 上的所有数据并将其替换为新的输出。如果您希望在不同的工作表上获得所需的输出，请更改参考Sheet2或您拥有的内容。

Option Explicit

Sub MultiCopy()

Dim arr As Variant
Dim r As Range
Dim i As Long
Dim currRow As Long
Dim nCopy As Long
Dim item As String

'store cell values in array
arr = Sheet1.UsedRange
currRow = 2

'remove all values
Sheet1.Cells.ClearContents
Sheet1.Range("A1") = "A"

For i = 2 To UBound(arr, 1)
    item = arr(i, 1)
    nCopy = arr(i, 2) - 1
    If nCopy > -1 Then
        Sheet1.Range("A" & currRow & ":A" & (currRow + nCopy)).Value = item
        currRow = currRow + nCopy + 1
    End If
Next

End Sub