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 つの異なるアカウントで「低コスト」を見つけました - リストする必要があるのは 1 回だけです)。そして、重複を削除したら、インストーラーごとに (コングロマリット全体ではなく) 残りを (テキストの文字列として) 1 つのセルに入れる必要があります。

助けてください。私は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 に答える