col Aでグループ化し、各グループのすべての行に対してcol BをExcel Bの値に基づいて設定します。

Question

Excelで1つのアクティブシートを実行し、列Aが一致するすべての行をグループ化する必要があります。これには、列Aに一意の値を持つ個々の行が含まれます。 サブセットが決定されると、列Bは各グループ（または個別に固有のcol Aエントリ）によって評価され、列Bのグループの値failまたはremoveを含みます。

列Bに一致する2つの文字列のいずれかが含まれている場合は、グループ（または個々の行）の各行の列Cをremoveに設定します。

私は現在、このデータセット

のようなデータセットに働いていると私の望ましい結果は、この ようになります。

私はサブセットを決定し、必要な変更を行うために、グループ化を使用しようとしましたが、私は列Aによってサブセットが

はあなたの時間と支援をありがとう視覚的にグループにVBAスクリプトになってしまいました！

Answer 1

アンExcelの数式は

=IF(COUNTIF(A:A,A1)=COUNTIFS(A:A,A1,B:B,"pass"),"keep","remove") 

明らかに、これはVBAに入れることができ一つの方法は、

Range("C1:C" & Cells(Rows.Count,"B").End(xlUp).Row).Formula = _ 
     "=IF(COUNTIF(A:A,A1)=COUNTIFS(A:A,A1,B:B,""pass""),""keep"",""remove"")" 

のようなものを使っている（C1で、ダウンコピー）これは次のようになります達成するために