• ベストアンサー

エクセルのセルにある同じ値が何件あるかを調べたいのですが・・

教えてください。 マイクロソフトエクセルで各セルの値が何件あるかを調べたいのです。 例えば A1セルに4300 A2セルに1500 A3   1000 A4   4300 A5   1000 ・・・・・ など同じAセルに約300近くの値が入っていたとします。 この場合 4300 は 2件 1500 は 1件 1000 は 2件など「件」はつかなくて数値だけでも助かります。 代金の返金をする時に紙幣や硬貨を用意する為に同じ値がいくつあるかが知りたいです。 オートフィルタで同じ数値だけを出す方法もありますが、こちらの方法で出来ることでしたら教えて下さい。 宜しくお願い致します。 エクセルのバージョンは古くて2002です。

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.5

こんばんは! 色々方法はあるかと思いますが・・・ 一例です。 ↓の画像のようにB列を作業用の列とさせてもらっています。 B2セルに =IF(COUNTIF($A$2:A2,A2)=1,ROW(A1),"") という数式を入れオートフィルでずぃ~~~!っと下へコピーします。 そして、D2セルに =IF(COUNT($B$2:$B$1000)<ROW(A1),"",INDEX($A$2:$A$1000,SMALL($B$2:$B$1000,ROW(A1)))) E2セルに =IF(D2="","",COUNTIF($A$2:$A$1000,D2)) という数式を入れ、D2・E2セルを範囲指定し、E2セルのフィルハンドルで 下へコピーすると画像のような感じになります。 尚、数式は1000行目まで対応できるようにしていますが、 データ量によって範囲指定の領域はアレンジしてみてください。 以上、長々と書きましたが 参考になれば幸いです。m(__)m

ryokun24
質問者

お礼

希望の関数が発見できて本当にうれしいです。 まさに私がやりたかった方法で、値も個数も算出できて 理想的です。 他の皆様のご回答も参考にさせていただきます。 どうもありがとうございました。

その他の回答 (5)

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

数(金額)の種類は データーフィルターフィルタオプションの設定ー重複するレコードは無視する で望みのセル範囲に具体的に金額を出せるのを知っているかな。 その後=COMNTIF($a$1:$a$100,L1) と入れて下方向に式を複写。 のようにすればその金額の件数は出る。 L列に上記で重複しない金額を出した列です。 ーー ちなみに >代金の返金をする時に紙幣や硬貨を用意する為・・ どういう風に役立てるか疑問を感じたが。

ryokun24
質問者

お礼

ご連絡遅くなりましてすみませんでした。 関数も全く未知の世界で初めてこちらの関数を知りました。 ありがとうございました。 >役立てるか疑問を・・ とのことですが、全員同じ金額を初めにもらい、それぞれ個別の物を注文して買ってもらい、残ったお釣を返すときにこちらの方法がとっても役に立つような仕事をしているためです。 (職種を出せれば納得いただけると思いますが・・、すみません!)

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.4

#1です。 すみません、誤爆です。見なかったことにしてください。

  • gyouda1114
  • ベストアンサー率37% (499/1320)
回答No.3

画像で  D2に =COUNTIF(A:A,C2) 「件」をつける セルの書式設定 → 表示形式 → ユーザー定義 → 種類に G/標準 "件" Excelで数字に自動で単位をつける http://trendy.nikkeibp.co.jp/article/tec/excel2/20060703/117479/

ryokun24
質問者

お礼

ご連絡遅くなりましてすみません。 図解入りで大変たすかりました。 ありがとうございます。

noname#204879
noname#204879
回答No.2

  A 1 data 2 4300 3 1500 4 1000 5 4300 6 1000 7 5600 8 6500 9 5600 10 6500 11 5600 上のような場合は、関数が不要なピボットテーブル(先ずは勉強して、分からないところだけを質問ネ)に依るのが簡単です。 結果だけを示しておきます。 データの個数/data data        合計 1000         2 1500         1 4300         2 5600         3 6500         2 総計         10 私も「エクセルのバージョンは古くて2002です」(*^_^*)

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

> エクセルのバージョンは古くて2002です。 ならば列の最大は256。 行が256以下なら「行列入れ替わる」でどうでしょう? 1)別シートを一枚用意(同じブックでも別ブックでも可) 2)データの全範囲をコピー(シート全体ではありませんよ) 3)1)のシートのA1で、右クリック>形式を選択して貼り付けを選ぶ(まだ貼っちゃだめですよ) 4)画面右下の「行列を入れ替える」をチェックしてから貼り付け。 これで行列入れ替わるのであとはお好きに。

関連するQ&A

  • ExcelVBA:オートフィルタをかけたシート上でのセル内の値参照について

    オートフィルタをかけた状態で、セル内の値を参照しても、オートフィルタがかかってないセル(隠れているセル)の値を参照してしまいます。 例えば、ある条件でオートフィルタをかけて、行が1,2、6,7、8・・・となって、3,4,5行が非表示になっているのにもかかわらず、 Range("A1").Offset(0, 2).Value を参照すると、6行目の値ではなくて、非表示の3行目の値を拾ってきてしまいます。 このように、オートフィルタをかけたシート上で値を参照する際に、非表示行を無視して行数取りし、値を参照したいのですが、何か方法はありますでしょうか? 上の例ですと、6行目のセルを3行目として扱いたいわけです。 どなたか、ご教授くださいませ。 よろしくお願い致します。

  • エクセルで一つのセルに集合値(複数の値)を入れたいのですが

    例えば、このようなデータベースが作りたいです。 名前  趣味 A   野球、サッカー、音楽鑑賞 B   野球、旅行 C   インターネット 趣味の列のように、一つのセルに複数の値を指定したいです。 そして、例えばオートフィルタで野球で絞り込むというような事がしたいのです。 このような事は、エクセルで実現できるでしょうか? またエクセルよりも適したソフトがあるようでしたら、そちらの紹介もして頂けると幸いです。 どうかよろしくお願いします。

  • エクセルのオートフィルタの条件にセルの値を入れる。

    エクセルのオートフィルタを使用した際、条件の中に【A月B日以上】【C月D日以下】としたいのですが、その【A月B日】【C月D日】を、それぞれあるセルに入力した値にしたいのですが、どのようにやればよいですか? 当然、毎回日付は変更します。 マクロでできる方法を教えて下さい。 よろしく御願いします。

  • エクセルで論理和などの値をセルに書きこみたい。

    エクセルで数値AとBの論理和等を取ってセルに書き込みたいのですがどこかに具体的な方法が書いたサイトなどないでしょうか?真偽値が欲しいのではなく(A&B)や(AorB)の値が欲しいと言うことです。マクロは使った事がありません。よろしくお願いします。

  • セルの値をCriteriaに入れる

    オートフィルターでセルの値をCriteriaに入れるマクロを教えて下さい。

  • (UWSC)エクセルのセルの値を読み込むには?

    UWSCで、エクセルのセルの値を読みこむ方法について 悩んでおります。 Excel = GETACTIVEOLEOBJ("Excel.Application"); val1 = Excel.ActiveSheet.range("A1").value; を使えば、開いているエクセルのA1セルにある値を 「val1」に読み込むことができました。 今、A1~A100にある100個のリストを順々に読み込むことを 考えています。おそらくfor文を使って、以下のようにするのかな? と思っております。 for i=1 to 100 val=○○ next A1~A100の値を順々に読み込むにはどのようにすればいいのでしょうか?

  • セルの値をアドレスに使いたい

    エクセルのA1セルに「12」が入っているとして、この「12」という数値を関数に使用する方法はありますか? 例えばB列の値を合計するためにA2セルに「SUM(B1:B12)」を指定したとして、終端側のアドレスをA1セルで参照するという感じです。

  • 同じ値のセルを見つける

    エクセルで、違う行列に入力してある、同じ値のセルを見つけたいのですが、何か方法はあるでしょうか。 例えばA1とB2セルが同じ値(X)と入っていたら、その2行を表示する等です。

  • EXCElセルの値でフィルター抽出したい

    windows10,microsoft365使用の超初心者です。 Sub セルの値でオートフィルターで抽出しその行を削除したい() Range("D8").AutoFilter Field:=6, Criteria1:=Range("F4").Value, Operator:=xlAnd End Sub このコードでやっても、うまく抽出してくれません。 どうして出来ないのかわかりません。ご教示よろしくお願いいたします。 セルF4は、表示は「6月20日」数値は44002です。 セルD8は、表示は「令和2年6月分」で数値は44002です。

  • Excel VBA セル値の配列代入について

    Excel VBAで、セルの値を配列に代入する処理を、よくやります。 arr=Range("$A1:$C1000").value とかですね。これに関して、オートフィルタで絞り込んだ結果の可視セルだけを、配列に代入するということは、やっぱり出来ないのでしょうか。

専門家に質問してみよう