• 締切済み

excelで重複データを１つにカウントしたいが、セルが結合されている場合

エクセルでの重複データをひとつにカウントする方法で、 http://oshiete1.goo.ne.jp/kotaeru.php3?q=1849830 式は上記の良回答より =COUNT(INDEX(1/(MATCH(A2:A100,A2:A100,0)=ROW(A1:A99)),0)) を使えばよいということはわかったのですが、 私の作っている表は、カウントしたいセルが結合してあり、うまくいきません。 具体的にはC,D,Eの結合のセルで、カウントしたい行は４行目～25行目まで。 空白のセルあり です。 =COUNT(INDEX(1/(MATCH(C4:E25,C4:E25,0)=ROW(C1:E21)),0)) としてみたのですが、 結果はすべて「0」となってしまいます。 このような場合どのようにすれば、よいかどなたか教えて下さい。

みんなの回答

  • onlyrom
  • ベストアンサー率59% (228/384)
回答No.3

　 範囲の設定が間違ってます。 Ｃ、Ｄ、Ｅを結合しているとき値が入っているのは、Ｃ列のみです。 よって、範囲は、Ｃ４：Ｅ２５　ではなくて、Ｃ４：Ｃ２５　です。 =COUNT(INDEX(1/(MATCH(C4:C25,C4:C25,0)=ROW(C1:C22)),0)) ROW(C1:C22) は、行番号を求めているだけですから、 ROW(A1:A22）など、どの列を使ってもＯＫです。 　 また、上記は、Count,Index,Match,Rowと４つの関数を使ってますが =SUMPRODUCT((MATCH(C4:C25,C4:C25,0)=ROW(C1:C22))*1) とすれば、３つの関数ですむし、シンプルです。 ---------------------------------------------------- ここで、ちょと質問者に質問あり。 なぜ上記の式で上手くいくのか、 また、どのような計算をしているのか 分かっていますか？ 理解しなままでは毎回質問することになりますので この機会に分からないところは徹底的に質問しておきましょう。 以上です。 　

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

配列数式を使ってしまったが 例データ（セル結合ありの例） 1 2（A2:A4セル結合 ー ー 3 2 1 2 2 5（A10:A11セル結合） ー 2 空白 6 A21に =SUM(IF(A1:A20<>"",1/COUNTIF($A$1:$A$20,A1:A20),0)) と入れてShift、Ctrl,Enterの３つのキーを同時押し 結果 ５ ーー VBAで同じようなことをやると Sub test01() d = Range("a20").End(xlUp).Row MsgBox d For i = 1 To d If Application.WorksheetFunction.CountIf(Range("A" & i & ":A9"), Cells(i, "A")) = 1 Then n = n + 1 Next i MsgBox n End Sub で実行結果 ５ となるので結果は正しいかと。

kyapokyapo
質問者

お礼

imogasiさま ありがとうございました。

回答No.1

試行してみることは重要ですが、わからない数式を使わない方が良いと考えます。 =COUNT(INDEX(1/(MATCH(C4:C25,C4:C25,0)=ROW(C1:C21)),)) 作業列を使った場合で上記の似た考え方なら F4セルに =IF(MATCH(C4,$C$4:$C$25,0)=ROW()-3,1) 下へオートフィル そしてCOUNT 他にF4セルに =IF(C4="",F3,IF(MATCH(C4,$C$4:$C$25,0)=ROW()-3,SUM(F3,1),F3)) 下へオートフィル F25セルに解 参考まで

kyapokyapo
質問者

お礼

CoalTar さま ありがとうございました。 作業列を使った方法でなく、1箇所で完結する方法にしたくて、 上記の式を探し当てました。 でも式の意味を理解せず、使うのはやはりよくないですね。 理解できるようにがんばってみたいと思います。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルデータのカウント

    A1：E5にデータが入力してあります。（空白セルもあり） C列、D列、E列のどれか１つのセルにでもデータ（数値） が入っている行の数をカウントして、A6に表示する 方法を教えてください。 たとえばF列に、=COUNT(C1:E1)を計算する行を入れて、 A8で=COUNTIF(F1:F5,">=1")をすれば、できるのだと思うのですが、 そのために行を増やしたくないのです。

  • エクセル2010　同データの検索と関連セルの表示

    先の質問、 http://okwave.jp/qa/q8405162.html において、実践後の画像を再アップさせて頂きます。 まずは、S1セルに =IF(INDEX($Y:$Y,ROW())="","",INDEX($Y:$Y,ROW())&"■"&COUNTIF(INDEX($Y:$Y,1):INDEX($Y:$Y,ROW()),INDEX($Y:$Y,ROW()))) を入力後、ctrl + ENTER で確定し、オートフィルで最下部まで。 その後、すべてctrl + ENTER で　以下を貼り付けました。 B9セル =IF(INDEX($4:$4,COLUMN())="","",IF(ROUNDUP((ROW()-ROW($A$8))/4,0)>COUNTIF($Y:$Y,INDEX($4:$4,COLUMN())),"",IF(INDEX($V:$V,MATCH(INDEX($4:$4,COLUMN())&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))="","",INDEX($V:$V,MATCH(INDEX($4:$4,COLUMN())&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))))) B10セル =IF(INDEX($4:$4,COLUMN())="","",IF(ROUNDUP((ROW()-ROW($A$8))/4,0)>COUNTIF($Y:$Y,INDEX($4:$4,COLUMN())),"",IF(INDEX($Z:$Z,MATCH(INDEX($4:$4,COLUMN())&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))="","",INDEX($Z:$Z,MATCH(INDEX($4:$4,COLUMN())&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))))) B11セル =IF(INDEX($4:$4,COLUMN())="","",IF(ROUNDUP((ROW()-ROW($A$8))/4,0)>COUNTIF($Y:$Y,INDEX($4:$4,COLUMN())),"",IF(INDEX($AA:$AA,MATCH(INDEX($4:$4,COLUMN())&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))="","",INDEX($AA:$AA,MATCH(INDEX($4:$4,COLUMN())&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))))) B12セル =IF(INDEX($4:$4,COLUMN())="","",IF(ROUNDUP((ROW()-ROW($A$8))/4,0)>COUNTIF($Y:$Y,INDEX($4:$4,COLUMN())),"",IF(INDEX($AC:$AC,MATCH(INDEX($4:$4,COLUMN())&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))="","",INDEX($AC:$AC,MATCH(INDEX($4:$4,COLUMN())&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))))) C9セル =IF(INDEX($4:$4,COLUMN()-1)="","",IF(ROUNDUP((ROW()-ROW($A$8))/4,0)>COUNTIF($Y:$Y,INDEX($4:$4,COLUMN()-1)),"",IF(COUNT(INDEX($U:$U,1):INDEX($U:$U,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))),LOOKUP("9999/12/31"+1,INDEX($U:$U,1):INDEX($U:$U,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))),""))) C9セルの書式設定の表示形式を[日付]に。 C10セル =IF(ISERROR(1/(INDEX($U:$U,MATCH("9999/12/31"+1,INDEX($U:$U,1):INDEX($U:$U,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0)))+3)<>"")),"",INDEX($U:$U,MATCH("9999/12/31"+1,INDEX($U:$U,1):INDEX($U:$U,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0)))+3)) C11セル =IF(INDEX($4:$4,COLUMN()-1)="","",IF(ROUNDUP((ROW()-ROW($A$8))/4,0)>COUNTIF($Y:$Y,INDEX($4:$4,COLUMN()-1)),"",IF(INDEX($AB:$AB,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))="","",INDEX($AB:$AB,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))))) C12セル =IF(INDEX($4:$4,COLUMN()-1)="","",IF(ROUNDUP((ROW()-ROW($A$8))/4,0)>COUNTIF($Y:$Y,INDEX($4:$4,COLUMN()-1)),"",IF(INDEX($AD:$AD,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))="","",INDEX($AD:$AD,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0))))) 機器Aの１回目は求める数値を抜き出して表示してくれています。 それを、コピー＆ペーストで　機器Bの１回目、機器Aの２回目に貼り付けました。 これは、オートフィルでも同じ数値が帰って来ます。 それで問題点なのですが、 機器Bの１回目、E9セルには１月１日と、E10セルには空白が帰って来ています。 また機器Aの２回目も同じ場所、C13セルが１月２日と、C14セルが空白で帰って来ています。 ちなみにE9セルの数式は =IF(ISERROR(1/(INDEX($U:$U,MATCH("9999/12/31"+1,INDEX($U:$U,1):INDEX($U:$U,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0)))+3)<>"")),"",INDEX($U:$U,MATCH("9999/12/31"+1,INDEX($U:$U,1):INDEX($U:$U,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0)))+3)) E10セルの数式は =IF(ISERROR(1/(INDEX($U:$U,MATCH("9999/12/31"+1,INDEX($U:$U,1):INDEX($U:$U,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0)))+3)<>"")),"",INDEX($U:$U,MATCH("9999/12/31"+1,INDEX($U:$U,1):INDEX($U:$U,MATCH(INDEX($4:$4,COLUMN()-1)&"■"&ROUNDUP((ROW()-ROW($A$8))/4,0),$S:$S,0)))+3)) となっています。 これで問題点が明らかになるでしょうか？ よろしくお願いいたします。

  • 結合セルに結合していないセルの値を貼り付けたいです。

    結合セルに結合していないセルの値を貼り付けたいです。 シート1の１行目の[A１-B1-C1-D1]を結合しています。以下同じように[E1-F1-G1-H1]…のように4つづつ結合しています。 この行に、シート2のA1→Ｂ1→Ｃ1と続く結合していないセルのデータを貼り付けたいのですが、やりかたがわかりません。色々やってみたのですが、うまくゆきません。ご教授お願いいたします。

  • エクセルマクロでセルの結合をしたい

    エクセル2003です。 E列の値は昇順で並んでいます。 先頭E3行から下の行の値と比較し 同じ値の場合はセルを結合し 値が違う場合は結合しないで次の行を比較という処理を 最終行まで行いたいです。 （添付画像参照） 例えば E3-AA E4-BB E5-BB E6-CC E7-DD E8-EE E9-EE E10-EE E11-FF セルE4とE5を結合します セルE8とE9とE10を結合します。 次に結合した行と同じ行数のF列を結合します。 さらに結合した行と同じ行数のG列を結合します。 上記の場合 セルF4とF5を結合、 セルF8とF9とF10を結合します。 セルG4とG5を結合、 セルG8とG9とG10を結合します。 さらに結合した行と同じ行数のA列を結合します。 上記の場合 セルA4とA5を結合、 セルA8とA9とA10を結合します。 さらに結合したA列に数字を入力します A4とA5を結合したA4、A5セルには 2行を結合したので２と入力 セルA8とA9とA10を結合したA8、A9、A10セルには 3行を結合したので３と入力。 とりあえず、E列の結合を完成させてそのE列を 3行目から最終行までコピーして、 「形式を選択して貼付」の「書式」で 書式のみをF,G,A列にコピーすれば出来るのではと 以下の構文を作成しました。 セルの結合時は結合するセルの先頭の行の値が結合済セルの値に なるので最初にE列を結合していく時に A列に結合回数を記入しようと考えました。 ただ2行の結合は、A列に2と入力されたのですが 3行連結した時も２と入力されてしまったので改造しました。 テストデータでは期待しているようになったのですが 本番データでは結合される行が4行、5行等それ以上の行数が 結合する場合が有りこの構文ではなるべくしてなっているのですが ４行以上の行結合はA列の値はいずれも３になってしまいます。 （添付画像参照） どう修正すればいいか手段が考え付きません。 どのような方法がありますでしょうか？ よろしくお願いします。 Sub セル結合2() '2013年10月25日 Dim 最終行 As Integer Dim 処理行 As Integer Dim 比較行 As Integer Dim 確認値 As Variant Dim 比較値 As Variant Dim 結合回数 Dim 戻行 Application.ScreenUpdating = False ThisWorkbook.Sheets("Sheet1").Select 最終行 = Cells(Rows.Count, 5).End(xlUp).Row 'F列の最終行を求めます。 Application.DisplayAlerts = False For 処理行 = 3 To 最終行 '3行目から最終行の前まで繰り返します。 比較行 = 処理行 + 1 '処理行の一つ下の行と比較します。→比較行とします。 確認値 = Cells(処理行, 5).MergeArea(1, 1).Value 'チェックする値を、確認値に代入します。 比較値 = Cells(比較行, 5) '比較する値を、比較値に代入します。 If 確認値 = 比較値 Then '値が同じかどうか Range(Cells(比較行, 5), Cells(処理行, 5)).MergeCells = True 結合回数 = Cells(処理行, 1) + 1 'セルを結合した回数 戻行 = 処理行 - 1 '処理行の1行上の行数を戻行とする Cells(処理行, 1) = 結合回数 '処理行のA列に結合回数を記入 Cells(比較行, 1) = 結合回数 '比較理行のA列に結合回数を記入 If Cells(処理行, 1) >= 3 Then 'もしも処理行のA列が3以上の場合 Cells(戻行, 1) = 結合回数 '戻り行のA列に結合回数をセット End If '同じでない場合は以下へ End If '同じでない場合は以下へ Next 処理行 Application.DisplayAlerts = True Application.ScreenUpdating = True Range(Cells(3, 5), Cells(最終行, 5)).Copy Range(Cells(3, 6), Cells(最終行, 6)).PasteSpecial Paste:=xlPasteFormats Range(Cells(3, 7), Cells(最終行, 7)).PasteSpecial Paste:=xlPasteFormats Range(Cells(3, 1), Cells(最終行, 1)).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False MsgBox "終了しました" End Sub

  • エクセルで結合セルがあるため最終行が解りません。

    エクセルで結合セルがあるため最終行が解りません。 A列2行目と3行目が結合セル（見出し）のためA列の最終行（罫線を除きデータが入ってる行）を求めれなくて困ってます。データは4行目以降から入力していく予定ですが Range("A" & Rows.Count).End(xlUp).Row は2となるため+1で入力行を求めてると3となってしまいます。A4からAの最後の行の範囲で罫線を除く最終行を出せればよいのですが　　最初は4　以下順次5　6　7　‥ どなたかご教示頂けないでしょうか？

  • Excel 重複データーのカウント

    Excelの関数に対する質問です。 　 =COUNTIF(A1:E1,A1) はA1と重複するデータを求めますが、この方法ではなく A B C D E 0 A A B C D 1 A A B C C 2 このように 行に重複するデータのデータ件数をいっきに求められる関数があるのでしょうか？ それともそれぞれのデータを=COUNTIF(A1:E1,A1)～でそれぞれもとめた後、それを合計しなければならないのでしょうか？ よろしくお願いします。

  • Excel　重複データを含むデータ数のカウント

    Excel2003を使用しています。 重複データを1つとして数え、セルK12：K473の範囲(空白セルあり)にあるデータの個数を求める数式を過去の質問を参考にして、下記のように入力しました。 【数式1】 =COUNT(INDEX(1/(MATCH(K12:K473,K12:K473,0)=ROW(K1:K462)),0)) →結果は44でした。 空白セルを除いた状態のK列のデータをM列にコピペし、これも過去の質問を参考にして、下記のように入力しました。 【数式2】 =SUMPRODUCT((MATCH(M12:M84,M12:M84,0)=ROW(M1:M73))*1) →結果は43でした。 職場で使用しているシステムへの入力漏れがないかをチェックしたくて、上記のようなことをしたのですが、入力した件数をシステムで検索した結果は43件でした。 最初は【数式1】で得た結果とシステムでの検索結果が合わないので、ひとつひとつ確認したのですが、入力漏れもなかったので、試しに【数式2】で調べてみると、システムでの検索結果と合致しました。 【数式2】では空白セルを含む場合はエラーが出るようでしたので、【数式1】でチェックしようとしたのですが、正しい結果が得られなかったのは、私の入力した【数式1】が間違っているのでしょうか？

  • マクロ　エクセル　結合セルのカウント

    エクセルのマクロについて教えてください。 結合されたセルに数字が入っていたらそれの数をカウントし、その数の部数の印刷する方法を教えていただけないでしょうか。 sheet1のB12:E17に結合セルが6個、M12:M17に結合セルが6個あります。 この12個の結合セルの中に数字が入っている結合セルの数の部数をsheet1の印刷枚数として印刷するようにしたいです。 よろしくお願いします。

  • ２重条件付きセル数のカウントについて

    Ａ１～Ｄ５セルに日付データが入力され、Ｅ１～Ｅ５セルにその行の担当者（ａ，ｂ，ｃ等重複あり）が記入されています。この場合、Ａ１～Ｄ１０セル全体で条件付き（当日以前の日付）セル数のカウントは＝COUNTIF（A1:D5,&(TODAI()))で求めることができましたが担当者別（行毎）に求めることが可能でしょうか。なお表は下記のようになっています。 A 　 B　　 C 　 D　 E 1 4/06　6/10 3/15 8/12 a 2 6/12 2/25 6/19 9/12 b 3 5/10 5/15 3/3 6/10 C 4 3/03 2/10 2/6 8/10 a 5 7/10 12/1 7/7 9/03 C 当日が４月２０日の場合、 担当者ａの場合カウント数５ 担当者ｂの場合カウント数１を求めたいのですがよろしくお願い致します。ＯＳはウインドウズ2000です。

  • エクセルでセルの結合

    総てテキストデータの入っている複数のセルを、データを保証して結合したい。 いまは、CONCATENATEを使っているのですが、セルの数が多いと、=CONCATENATE(C4,C5,C6)では日が暮れてしまいます。=CONCATENATE(C4:C200)などができると良いんですが・・・。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する