[[20200520224019]]　『重複データの削除』（けん）　ページの最後に飛ぶ

『重複データの削除』（けん）

 重複の削除を行いたいのですが
 1.Ａ１からＡ９６０に入力されている文字が
 　Ｂ１からＡＮ９６０に入力されていた場合に削除をしたい。
 2.行ごとに重複した文字を削除したい。

  　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ・・・・
 1　あ　か　き　く　け　こ
 2　い　さ　い　い　せ　せ
 3　う　た　ち　う　て　と
 4　え　な　な　ぬ　ね　の

 Ｃ２、Ｄ３、Ｆ２、Ｃ３を削除したいということです。

 よろしくお願いいたします。

＜使用 Excel：Excel2007、使用 OS：Windows10 ＞

 削除してどちら側にセルを詰めるのでしょう？

 またC3は「ち」ですが、なぜ削除対象になるのか
 条件が分かりません。
（OK） 2020/05/21(木) 07:37

Sub main()

    Dim r As Range, rr As Range, c As Range, cc As Range
    For Each c In Range("A1:A960").SpecialCells(2)
        Set rr = Range("B1:AN960").Find(c.Value, , , xlWhole)
        If Not rr Is Nothing Then
                If r Is Nothing Then
                Set r = rr
                Else
                Set r = Union(r, rr)
                End If
            Else
            For Each cc In c.EntireRow.Cells
                If WorksheetFunction.CountIf(c.EntireRow, cc.Value) > 1 Then
                    If r Is Nothing Then
                    Set r = cc
                    Else
                    Set r = Union(r, cc)
                End If
            End If
            Next cc
        End If
    Next c
    r.Clear
End Sub
（mm） 2020/05/21(木) 12:34

コメント返信：

[ 一覧(最新更新順) ]

[[20200520224019]] 『重複データの削除』（けん） ページの最後に飛ぶ

[[20200520224019]]　『重複データの削除』（けん）　ページの最後に飛ぶ