将带有观测值的表格展开到excel中的列表-反向删除重复项

将带有观测值的表格展开到excel中的列表-反向删除重复项,excel,vba,Excel,Vba,在excel中,我试图将一个简单的项目表和每个项目的观察数量转换为一列项目,其中每个项目的数量与表中观察到的数量相同 本质上,我想要的是更典型的“复制粘贴、删除重复项、countif(父数据、唯一值)”的反面 在所附的例子中,上面的例子是我想象中的更典型的愿望,下面的例子是我希望实现的目标。我假设这将是一个VBA解决方案,但如果可以不用它,那也一样好 提前谢谢 试试这个简单的代码 Sub reverseDups() Dim i As Long, j As Long, k As Long k =

在excel中,我试图将一个简单的项目表和每个项目的观察数量转换为一列项目,其中每个项目的数量与表中观察到的数量相同

本质上,我想要的是更典型的“复制粘贴、删除重复项、countif(父数据、唯一值)”的反面

在所附的例子中,上面的例子是我想象中的更典型的愿望,下面的例子是我希望实现的目标。我假设这将是一个VBA解决方案,但如果可以不用它,那也一样好


提前谢谢

试试这个简单的代码

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


A列和B列
是您的源数据,您将在
E列
中获得您的输出

谢谢!那很好用。我也尝试过类似的方法,但它会让每一个新的项目(水果)循环回到顶部(在你的例子中是E1)。谢谢你的帮助。@KyleWolf太好了!!