• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• SALINGER2011/12/21 09:20:48

  満足100pt

  ピボットテーブルでやればいい感じですが、マクロだと。

  Sub Macro()
      Dim i As Long
      Dim j As Long
      Dim lastRow As Long
      
      lastRow = Cells(Rows.Count, "A").End(xlUp).Row
      
      Range("D1:D" & lastRow).Value = 1
      
      For i = lastRow To 2 Step -1
          For j = 1 To i - 1
              If Cells(i, "A").Value = Cells(j, "A").Value And Cells(i, "B").Value = Cells(j, "B").Value _
                  And Cells(i, "C").Value = Cells(j, "C").Value Then
                  Cells(j, "D").Value = Cells(j, "D").Value + 1
                  Rows(i).Delete
                  Exit For
              End If
          Next j
      Next i
  End Sub
  

  スター

きゃづみぃ2011/12/21 11:18:55

満足100pt

質問の内容を実行するための関数はないです。
数式を用いても できないでしょう。

重複するものが 何件あるのか調べるには countif をもちいれば いいですが
countif では 一項目しか比較できないので、3項目を連結して ひとつの項目にする必要があります。
つまり A列、B列、C列を連結した 項目を作って そこに対して countifすれば 何件あるのかぐらいは 調べられます。

連結の仕方ですが たとえば D列に作るとして D列に
=A1 & B1 & C1
といった感じで入れればいいです。

それで そのD列に対して countif してやればいいでしょう。

重複行を削除するのは マクロ等使わなければ 消せませんね。
別シートだったら 表示させるということは 可能ですが、現実的ではないです。

スター

• 

  2件のコメントを見る

• nanntenn 2011/12/21 22:11:10

  重複行の削除はExcel2007以降であれば「データ」→「重複の削除」→D列を指定で
  いけますよね？

  スター

• きゃづみぃ 2011/12/21 22:19:11

  それは 関数でも式でもないですよね？

  スター

kodairabase2011/12/27 20:26:41

満足100pt

そういう関数や式はありません。
マクロを使いましょう。

スター
• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2011-12-20 23:39:37

終了日時

2011-12-27 23:40:05

回答条件

1人5回まで

この質問のカテゴリ

• コンピュータ
• インターネット

この質問に含まれるキーワード

人気の質問

• 【東京ディズニーランドに行きたくても行けない】中学生のとき父親に「ディズニーランドに行きたい」と言っ…匿名質問者12日前
• これらは、猫の嫌う匂いらしい。蠅、蚊、ゴキブリ は、これらを嫌わないのだろうか 　 　●柑橘類の匂い 　…匿名質問者11日前
• アメリカ本土は、４つの時間があるようですが、同じ州なのに、ふたつに分かれているところがあります。銀行…匿名質問者3日前
• 岳父(がくふ)というと、妻の父です。妻の母は、丈母(じょうぼ) でもよいようです。さて、①夫の父は、何と…匿名質問者3日前
• 2025年3月のJR東海ダイヤ改正で最も可能性の高い内容はどれでしょうか？ １ 315系東海道線・御殿場線・身延…匿名質問者3日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ