[[20170517201231]]　『[VBA]重複行のカウントと、表示方法』（かなこ）　ページの最後に飛ぶ

『[VBA]重複行のカウントと、表示方法』（かなこ）

お世話にまります。
以下のように実現するVBAを作成したいです。

■条件

 1. A列かつB列で重複する行をカウント
 2. A重複箇所は、1行に集約
 3. 2.で追加列（C列）に、カウント数を表示

　　 |　　A　　　　　　B　
　　　　

 1行 |　 アルファベット  　記号
 2行 |　 　AA　　　　　　　〇     　　
 3行 | 　  BB  　          ×
 4行 |　   CC 　 　        ×　　
 5行 |     AA              ●  　　 
 6行 |     CC              △ 
 7行 |     AA              ● 
 8行 |     AA              ●
 9行 |     BB              ×
 10行 |    CC              ×

　　　　　　　　　↓

　　 |　　A　　　　　　B　　　　　C
　　　　

 1行 |　 アルファベット  　記号　　　カウント
 2行 |　 　AA　　　　　　　〇     　　1
 3行 | 　  BB  　          ×         2
 4行 |　   CC 　 　        ×　　     2
 5行 |     AA              ●  　　   3
 6行 |     CC              △         1

2.の重複の削除は、以下のマクロで実現できましたが、
1.と3.の実現方法と2.とのあわせ方がわかりませんでした。

～～～～

 '重複の削除
    QwMax = Cells(Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = False
    For Qw = RwMax To 4 Step -1
    If Cells(Qw, "A") <> "" Then
        b = Cells(Qw, "A")
        c = Cells(Qw, "B")
        For d = Qw - 1 To 1 Step -1
            If Cells(d, "A") = b And Cells(d, "B") = c Then
                Rows(Qw & ":" & Qw).Delete Shift:=xlUp
                Exit For
            End If
        Next d
    End If
    Next Qw

～～～～

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

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

手作業ならこんな流れでしょうか

１）A:B列をD:E列にコピー
２）A:B列で重複の削除
３）C列に、数式を挿入し行数カウント
４）D:E列削除

数式は、COUNTIFS関数を使うとよいです。

（マナ） 2017/05/17(水) 20:44

これでよかったですね

１）C列に、数式を挿入し行数カウント
２）A:C列で重複の削除

（マナ） 2017/05/17(水) 20:49

ごめんなさい。
C列は数式を値に変換する必要があるかも。

まずは手作業でできそうか確認してください。

（マナ） 2017/05/17(水) 20:52

現在のコード全くみていませんでした。

エクセルには、「重複の削除」という機能があります。
http://www.becoolusers.com/excel/remove-duplicates1.html

マクロでも使えます。１行です。

（マナ） 2017/05/17(水) 21:04

コメント返信：

[ 一覧(最新更新順) ]

[[20170517201231]] 『[VBA]重複行のカウントと、表示方法』（かなこ） ページの最後に飛ぶ

[[20170517201231]]　『[VBA]重複行のカウントと、表示方法』（かなこ）　ページの最後に飛ぶ