すいません
ご指導お願いいたします。

共通数字の番号と共通数字の回数
取得するVBA

Sub test()

Worksheets("Sheet5").Cells.Delete  'シート起点クリアー
  Worksheets("Sheet5").Select

    Set dic = CreateObject("scripting.dictionary")
    

   With Range("A1").CurrentRegion
    
        For Each c In .Cells
            dic(c.Value) = dic(c.Value) + 1
        Next
        
        With .Offset(, .Columns.Count + 1).Resize(dic.Count, 4)
            .EntireColumn.ClearContents
            .Columns(1).Value = WorksheetFunction.Transpose(dic.keys)
            .Columns(2).Value = WorksheetFunction.Transpose(dic.items)
            .Sort Key1:=.Columns(2), Order1:=xlDescending
        End With
        End With
 End Sub


（例１）

行/列	A	B	C	D	F	G	H
1	10	13	12	8		7	4
2	4	11	7	1		1	3
3	11	10	9	7		10	2
4	7	7	8	12		13	2
5	9	2	1	14		12	2
6	1	4	5	13		8	2
						4	2
						11	2
						9	2
						2	1
						14	1
						5	1

�@A1列からD6列の数字の範囲
�AG列は、共通数字の番号
�BH列は、共通数字と回数

A1からD6の範囲内で
共通数字と回数をだす
VBAです。

質問です。

A1列からD6列をの範囲内に
空白のセルを数えない様にする
場合はどの様に
修正するのでしょうか。
ご指導お願いいたします。

下の例２です。

C３からC６が空白です、
F2列が空白　
G2列　４個

（例２）
行/列	A	B	C	D	E	F	G
1	10	13	12	8		7	4
2	4	11	7	1			4
3	11	10		7		10	2
4	7	7		12		13	2
5	9	2		14		12	2
6	1	4		13		4	2
						11	2
						1	2
						8	1
						9	1
						2	1
						14	1

修正した時の場合

行/列	A	B	C	D	E	F	G
1	10	13	12	8		7	4
2	4	11	7	1		10	2	
3	11	10		7		13	2
4	7	7		12		12	2
5	9	2		14		4	2
6	1	4		13		11	2
						1	2
						8	2
						9	1
						2	1
						14	1
						
Excel　Ver　2010


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

空白セルでない場合
IF c.Value<>"" Then

 マナさん
ご指導すいませんが、
どのようにするか
いまいち分かりません。

＞空白セルでない場合
＞IF c.Value<>"" Then


この部分を書き換えするということですか、

For Each c In .Cells
            dic(c.Value) = dic(c.Value) + 1
        Next

> どのようにするか
> いまいち分かりません。

では、別案で。
For Each c In .SpecialCells(xlCellTypeConstants)

マナさん

うまくいきました。

＞
では、別案で。
For Each c In .SpecialCells(xlCellTypeConstants)

SpecialCells(xlCellTypeConstants)

ここがポイントですか。

勉強になりました。

有難うございます。