Excel-dynamic复制和sorting列表：

我试图压缩一个列表，以便没有重复，并且在新数据添加时自动更新。 这里是我想要做的更简单的版本：表2：列A：列B：薄荷1巧克力2薄荷1巧克力1香草5

在表1我要一个总结，所以它会说：列A：列B：薄荷2巧克力3香草5

我可以做到这一点，但是当我添加了一种我从未见过的全新的味道，并且没有办法预测（如新的每月味道）时，我怎样才能更新它，以便它自动添加到我的摘要页面。 另外如果添加旧的味道，它会继续添加到适当的列。

例如，说我添加到我原来的工作表2，所以它看起来像下面 – 列A：列B：薄荷1巧克力2薄荷1巧克力1香草5薄荷4巧克力2特别2布朗尼8

我知道要总结表如下所示：列A：列B：薄荷6巧克力5香草5特别2布朗尼8

Answer 1

Sub dynamicSumNSort() Sheets("Sheet2").Range("A:A").Copy Destination:= Sheets("Sheet1").Range("A:A") Sheets("Sheet1").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo Sheets("Sheet1").Select Range("A1").Select While activecell.value <> vbNullString activecell.offset(0,1).FormulaR1C1 ="=SUMIFS(Sheet2!C,Sheet2!C[-1],Sheet1!RC[-1])" activecell.offset(1,0).select Wend End Sub 

试试这个大小，让我知道如果你遇到任何问题编辑：我的道歉，我纠正了我的错误