如果各列匹配，则合并唯一值

Question

我有一个大约1000行的大文件。基本上，我想开发一个VBA /宏（我假设这是最简单的方法），如果这些行中的列数相等，它将合并列中的一定数量的行。

例如：

在B列中，在“Desserts”下，我想比较D列到F的值。在这种特殊情况下，它将是“Cake”。如果列D-F中的所有这些值具有相等的值，则将列A中的各个行组合成一个单元格，每个值具有新行。我假设它必须使用char（10）。之后，代码将运行并删除包含先前值的行（因此在这种情况下将删除行3和4）。您会注意到行中的所有其他值都不会合并，它们将保持相同的值。

就代码逻辑代码而言，我写了一个通用代码，但我真的不知道VBA的语法，所以如果有人能够确认这在逻辑上是否有意义并且可以帮助转换为VBA，我将非常感激。 / p>

以下示例使用上面的示例：

For rows i to j
    If compare(i, i+1) == TRUE
        If AND(exact(Di,Di+1), exact(Ei,Ei+1), exact(Fi,Fi+1))==True
           concatenate(Ai, char(10), Ai+1)
           rows(i+1).Delete
        end
    end
end

这样的事情。同样，我不知道VBA的语法，也不确定逻辑是否正确所以任何帮助都是值得赞赏的。