将具有观察值的表扩展到excel中的列表 - 反向删除重复

Question

在excel中，我试图将一个简单的项目表和每个项目的观察数量变成一列项目，其中每个项目的数量与表格中观察到的数字相同。

基本上，我希望反过来更典型的＆＃34;复制粘贴，删除重复，countif（父数据，唯一值）＆＃34;。

在附带的例子中，顶部示例是我想象的更典型的愿望，最底层的例子是我想要完成的。我认为这将是一个VBA解决方案，但如果没有，那就一样好了。

Example of what I mean

提前致谢！

Answer 1

试试这个简单的代码，

Sub reverseDups()
Dim i As Long, j As Long, k As Long
k = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 1 To Cells(i, 2)
        Cells(k, 5) = Cells(i, 1)
        k = k + 1
    Next j
Next i
End Sub

Columns A and B是您的源数据，您将在Column E

中获得输出