Question

我正在尝试压缩列表，以便没有重复项，并且在添加新数据时它会自动更新。这是我想要做的更简单的版本：表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

试试尺码，如果您遇到任何问题，请告诉我编辑：道歉，我纠正了我的错误

Excel-动态复制和排序列表：

1 个答案: