excel - 名前を並べ替え、x 回出現する名前のみを含める Excel マクロ

Question

名前の列をカウントする Excel 用のマクロの作成についてサポートが必要です。名前が 2 つ以上出現する場合は、重複を削除します。出現回数が 2 回未満の場合は、その名前をリストから完全に削除します。誰か助けてくれませんか？

たとえば、列は次のとおりです。

1. ジョンスミス
2. ジョンスミス
3. ジェーン・スミス
4. パティ・スミス
5. ジム・スミス
6. ジム・スミス
7. ジム・スミス

マクロが次のようになった後:

1. ジョンスミス
2. ジム・スミス

Answer 1

あなたはこれを試すことができます..

セルA1と仮定すると..結果は列Bに表示されます..結果を取得した後、列Cを削除できます..

Sub CheckOccurance()
Dim LastA, r As Range
Dim x, x2, Bn As Long
Dim s As String
Dim IsDoub As Boolean

Set LastA = Range("A65536").End(xlUp)
Bn = 1

For x = 1 To LastA.Row
  If Not Cells(x, 3) = "x" Then
    s = Cells(x, 1)
    Cells(x, 3) = "v"
    IsDoub = False
    For x2 = x + 1 To LastA.Row
      If Cells(x2, 1) = s Then
        Cells(x2, 3) = "x"
        IsDoub = True
      End If
    Next
    If IsDoub Then
      Cells(Bn, 2) = s
      Bn = Bn + 1
    End If
  End If
Next
End Sub