[[20221008233007]]　『3つ以上重複してる文字だけ残したい』（つぐ）　ページの最後に飛ぶ

『3つ以上重複してる文字だけ残したい』（つぐ）

a
a
n
o
e
b
a
j
d
k

a
a
a

こんな感じになるイメージです。
分かる方がいればお願い致します🙇

＜使用 Excel：Excel2019、使用 OS：unknown ＞

 こんばんは

 手動でするならですが				
 条件付書式でも使用したらどうでしょうか？

 A1:A10を選択して 条件付書式の数式( 数式欄 )へ、 				
 下記の式を入力します

 入力式=COUNTIF($A$1:$A$10,A1)>2

 書式・パターン・色設定して、OKで設定、				
 3つ以上の重複してる文字だけに、背景色が付くようにすれば良いかと				
 したら行を削除しやすくないかしら？

 A列全部の場合は下記の式ですね。

 入力式=COUNTIF(A:A,A1)>2

 因みに、VBAでも同じような要領でするんですが…

 1000行以上のデータがあって…手動では大変なら、VBAを希望しておけば				
 明日、誰か見てくれた人がしてくれますよ。(きっと)

（あみな） 2022/10/09(日) 00:27:07

 データがA列にあり、該当しないセルは削除するということなら、

    Sub Macro1()
        Dim rng As Range, r As Range, tmp As Range
        Set rng = Range("A1", Cells(Rows.Count, "A").End(xlUp))
        For Each r In rng
            If Not WorksheetFunction.CountIf(rng, r) > 2 Then
                If tmp Is Nothing Then
                    Set tmp = r
                Else
                    Set tmp = Union(tmp, r)
                End If
            End If
        Next
        tmp.Delete xlShiftUp
    End Sub

 とかでしょうか。
（みかん） 2022/10/09(日) 07:10:01

関数案です。
データは「A1:A10」入力されているとして、B列に抽出します。

 B1: =IFERROR(INDEX($A$1:$A$10,AGGREGATE(15,6,ROW($A$1:$A$10)/(COUNTIF($A$1:$A$10,$A$1:$A$10)>=3),ROW(A1))),"")

必要数下にコピーします。
（メジロ） 2022/10/09(日) 08:56:45

コメント返信：

[ 一覧(最新更新順) ]

[[20221008233007]] 『3つ以上重複してる文字だけ残したい』（つぐ） ページの最後に飛ぶ

[[20221008233007]]　『3つ以上重複してる文字だけ残したい』（つぐ）　ページの最後に飛ぶ