1

我有一个看起来像这样的数据库：

Name    -Finding One    -Finding Two    -Finding Three

John    -Low Cost       
John    -Accessible     -Low Cost   
Michael -High Cost      -Good Quality   -Good CSR

Michael -Low Cost       -Friendly CSR   
Michael -Average Cost       
Michael -Lot of Features    -Good Quality   
Charles -Average Cost       
Bryan   -High Cost      -Friendly CSR

正如我们所看到的，我们有同一个人在处理不同的帐户并报告他们的发现。

我需要获取每个工人的调查结果并将它们放在不同的列中，以便我可以删除重复的值（例如，John 在 2 个不同的帐户中找到了“Low Cost” - 我只需要列出一次）。而且，一旦我删除了重复项，我需要将剩余部分放在一个单元格中（作为一串文本） - 每个安装程序（而不是整个企业集团）。

请帮忙。我对VBA很陌生。

另外注意：我开始用宏分隔安装程序（认为在安装程序之间留一个空格将有助于解决其余问题 - 我在找到解决方案方面收效甚微）。

4

1 回答 1

1

是你要找的吗？

Sub sample()


    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row

    Range("A2:B" & lastRow).Copy Range("F1")
    Range("A2:A" & lastRow).Copy Range("F" & Rows.Count).End(xlUp)
    Range("C2:C" & lastRow).Copy Range("G" & Rows.Count).End(xlUp)

    Range("A2:A" & lastRow).Copy Range("F" & Rows.Count).End(xlUp)
    Range("D2:D" & lastRow).Copy Range("G" & Rows.Count).End(xlUp)


    lastRow = Range("F" & Rows.Count).End(xlUp).Row
    Range("F1:G" & lastRow).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

End Sub

在此处输入图像描述

于 2013-05-19T07:02:00.050 回答