将观察值的表扩展到excel中的列表 – 反转删除重复

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

基本上，我想要更典型的“复制粘贴，删除重复，countif（父数据，唯一值）”的相反。

在所附的例子中，最顶层的例子就是我想象的更典型的愿望，最底层的例子就是我期望完成的。 我认为这将是一个VBA的解决scheme，但如果可以做到这一点，这是一样的罚款。

我的意思是例子

提前致谢！

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获得输出