エクセル 重複するデータを１カウントで集計する

質問

エクセル２０００を使用しています。
１．県Ｎｏ　２．県名　３．事業所名　・・と項目が続く表があります。データは昇順に並べ替えてあります。
１．県Ｎｏと３．事業所名が同じ内容だった場合、重複するデータ全て合わせて１カウントとし、重複データの一番頭の１．県Ｎｏの後ろに連番の形で１から番号をふるのにはどうしたらよいでしょうか。

回答No.4

mu2011 · ベストアンサー

NO1です。
ご要望を取り違えていましたので別案の方法と致しますのでお試し下さい。
ご要望からは関数では難しいと思いましたのでＶＢＡとしています。
（１）対象シートの任意セルを選択→alt＋F11キー押下→挿入→標準モジュール
（２）コードウィンドウに以下のコードをコピー→alt＋F4キー押下
Sub 枝番()
Dim A列, C列 As String
Dim c As Range
For Each c In Range("A:A")
If c.Value = "" Then Exit Sub
If A列 <> c.Value Then
A列 = c.Value
i = 1
C列 = Range("C1").Offset(c.Row - 1).Value
Range("D1").Offset(c.Row - 1).Value = i
Else
If C列 <> Range("C1").Offset(c.Row - 1).Value Then
C列 = Range("C1").Offset(c.Row - 1).Value
i = i + 1
Range("D1").Offset(c.Row - 1).Value = i
End If
End If
Next
End Sub

（３）ツール→マクロ→マクロで「枝番」を選択→実行

お礼

さっそくの的確なご回答どうもありがとうございます。
　私の質問の要領が悪く、度々お手数掛けてしまい申し訳ありませんでした。　おかげさまで、無事作業が完了致しました。
本当に助かりました。どうも有難うございました。

回答No.5

web2525

D1＝1
として
D2に
=IF(A2="〃",IF(C2="〃","",OFFSET($D$1,MAX(INDEX(($D$1:D1<>"")*ROW($D$1:$D1),0))-1,0)+1),1)
下方向にフィルしてください。

お礼

私の質問内容が意味不明にもかかわらず、いろいろフォローしながら、ご回答を寄せて下さいまして、ありがとうございました。そしてご迷惑もおかけ致しました。申し訳ありません。ご回答、大変参考になりました。ありがとうございます。

回答No.3

web2525

修正：
=IF(SUMPRODUCT(($A$1:A1=A2)*($C$1:C1=C2)*1),"",COUNT($D$1:D1)+1)
作業列はD列です、D1=1　　D2以下に式を

回答No.2

web2525

>１．県Ｎｏの後ろに連番の形で１から番号をふるのにはどうしたらよいでしょうか。

県Noの後ろとは?セルの内容自体を書き換えると言う事ですか?
（その場合は循環参照となり計算できなくなります）
実際の表をセル番地で表すとどんな形でしょうか
A1＝県No＞＞＞B1=県No・・・・・
A2＝県名＞＞＞B2=県名・・・・・
A3=事業所名＞B3=事業所名・・・
と続く形
A1=県Ｎｏ　B1=県名　C1=事業所名
A2=県Ｎｏ　B2=県名　C2=事業所名
・
・
となっている?

下方向に伸びているのであれば作業セルに
=IF(SUMPRODUCT(($A$1:A1=A2)*($B$1:B1=B2)*1),"",COUNT($C$1:C1)+1)
※作業列がC列の場合、C1に1と入力しC2以下に式を入力。

回答No.1

mu2011

次の方法は如何でしょうか。
（１）見出し行あり、県Ｎｏ（Ａ列）と県名（Ｂ列）間に枝番列を挿入
（２）B2に=SUMPRODUCT(($A$2:A2=A2)*($D$2:D2=D2))を設定、下方向にコピー

補足

ご回答ありがとうございました。

私の質問内容が不明確でしたので補足させて頂きます。

同じ県Ｎｏの重複データのまとまり1つごとに、１、２、３・・・と番号をつけたいです。

たとえば

　Ａ列　　　　Ｃ列　　　　　Ｄ列
県Ｎｏ２３　○○事業所　　　１
　　〃　　　　　〃
　　〃　　　　　〃　　　
　　〃　　　○×事業所　　　２
　　〃　　　　　〃
　　〃　　　　　〃
県Ｎｏ２４　○▲事業所　　　１
　　〃　　　○★事業所　　　２

　と、ゆうようなものをイメージしております。
　もしなにか良い方法があれば教えて下さい。よろしくお願い致します。