- ベストアンサー
16桁の数が何種類あるかをカウントし、使用したい方法
GOCHISOUdaの回答
- GOCHISOUda
- ベストアンサー率34% (50/144)
Sub 教えて() Range("C1").FormulaArray = _ "=SUM(IF(FREQUENCY(A1:A13, A1:A13)>0, 1, 0))" r = Range("C1") アドレス = "B" & r Range(アドレス).Activate End Sub
関連するQ&A
- 以下のようなEXCELのA列をカウントしたいです。
以下のようなデータ行が１００００件くらいあります。 Ａ列には1から10,000までの数字があります。同じ数字が１個か２個あります。３個以上はないです Ｂ列にはaかbどちらかが入っています。（両方ある場合もあります） この時、A列で異なる数字が何件あるかカウントするのはいい方法はないでしょうか？ 以下の例ですと、データは10件ですがA列に入っている数は7種類です。 この「7種類」という数字を弾きたいのですが、いい方法はないでしょうか？ （実際のデータは1から順列でなく、PC管理番号のような英数字が入っています） A列 Ｂ列 1 a 1 b 2 a 3 a 3 b 4 a 5 b 6 b 7 a 7 b
- ベストアンサー
- その他MS Office製品
- 列に含まれる同じ文字列をカウントし、表示させる方法を教えてください。
簡単な質問かもしれませんが、どうかお願い致します。 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ 5桁 2桁 5桁 カウント 2桁 カウント 11111 11 11111 11 11111 11 11111 11 11121 11 11121 11 12111 12 13111 13 上記のような Ａ列には5桁の数字 Ｂ列には2桁の数字 エクセルのデータがあるとして、 まず、Ａ列で同じ数字をカウントし、 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ 5桁 2桁 5桁 カウント 2桁 カウント 11111 11 11111 4 11111 11 11121 2 11111 11 12111 1 11111 11 13111 1 11121 11 11121 11 12111 12 13111 13 のように表示させたいのですが、どうしたらいいかわかりません。 データが膨大で数字がランダムな為、CountIfは使えないんだと思いますが、素人なので、詳しくはわかりません。 また、Ｂ列が何なのかと言いますと、Ａ列の上2桁が入っています。 なぜ必要かなんですが、理由があります。 Ａ列で5桁でカウントした個数が2以下の場合、5桁ではカウントせずに、2桁でカウントするという風にしたいのです。 しかも、5桁でカウントし、3以上だった数字については2桁ではカウントしない様にしたいんです。 要するに、最終的に Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ 5桁 2桁 5桁 カウント 2桁 カウント 11111 11 11111 4 11 2 11111 11 12 1 11111 11 13 1 11111 11 11121 11 11121 11 12111 12 13111 13 のように表示させたいんです。 長々とすみません。 ご指導のほど、よろしくお願いいたします
- 締切済み
- Visual Basic
- 種類の数をカウントする方法。
連投で初歩的な質問をしますが、よろしくお願いします。 エクセル２００３です。 Ａ列に あ、い、う、え、う、え、あ、い、か、い、か と文字が入力されているとします。 何種類の文字が入っているかカウントする関数はありますでしょうか。 あれば教えてください。 （上記の場合の答えは、５種類という答えとなります。） また別のシートでＡ列に１，２，３，１３，１０３，１、３００、２と入力されているとします。 何種類の数字列（１０３や３００は一種類とカウントします。）が入っているか、 カウントする関数はありますでしょうか。あれば教えてください。 上記の場合の答えは、６種類という答えとなります。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- L列で条件に該当する場合の、A列のデータ種類数
A列には「文字列」が入力されています。 L列には計算式が入力され、計算結果が数字で表示されています。 L列の計算結果が「0より大きい」「0より小さい」という条件に該当する、A列のデータの種類数をカウントする関数を教えてください。データ行数は「1行目から100行目」でお願いします。 A列 L列 田中 100 鈴木 -50 田中 70 佐藤 80 佐藤 -70 工藤 -15 L列で「0より大きい」 → A列のデータの種類数は田中、佐藤なので 「2」という計算結果を導き出したい。 L列で「0より小さい」 → A列のデータの種類数は、鈴木、佐藤、工藤なので、「3」という計算結果を導き出したい。 Excel2013を使っていますが、2007にも対応できる計算式だと、なおありがたいです。 お手数をおかけいたしますが、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- ＥＸＣＥＬでセル内の文字列が同じものをカウントする方法について
具体的にはＡ列とＢ列の各セルに文字列が入っており、Ａ列とＢ列で同じ文字列の数を知りたいのです。 Ａ列 Ｂ列 1 AAA1111 BBB2222 2 CCC3333 ZZZ9999 3 BBB2222 DDDD444 4 ZZZ9999 KKK5555 5 EEE8888 XXX7777 ・ ・ ・ ・ ・ ・ 上記例ですと 「A3とB1」「A4とB2」が文字列が同一で、 カウントは「２」になります。 一つ一つ照らし合わせて行くにも結構な行数が あるため、何か良い手段がありましたらお教え 願います。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 日付条件を満たしたときの文字列カウントについて困ってます。
初級レベルかもしれませんが、教えてください。 今、A列に数年分の日付（2009/4/10など※重複日付アリ）が入力されており、 B列に全部で複数種類（10種類程度）ある文字列がランダムに入力されています。 （1つのセルに複数種類の文字列が入力されている場合もアリ） 【イメージ】 A B 2009/4/6 ○○○ 2009/4/7 △△△ ■■■ ××× 2009/4/7 △△△ □□□ 2009/4/7 ○○○ ××× 2009/4/8 ●●● 2009/4/9 △△△ ▲▲▲ □□□ ■■■ 2009/4/9 ▲▲▲ 2009/4/9 □□□ ・ ・ ・ ・ ・ ・ このとき、1週間毎の日付で区切り（2009/4/6～2009/4/12など）、 指定した文字列の数をカウントしたく思っております。 【結果イメージ】 A B C D E ・・・ ○○○ ●●● △△△ ▲▲▲ ・・・ 2009/4/6～2009/4/12 10 5 12 3 ・・・ 2009/4/13～2009/4/19 0 3 5 7 ・・・ 2009/4/20～2009/4/26 4 14 3 8 ・・・ エクセル2000を使用しておりますので、それに対応したいい方法を ご存知でしたら教えていただきたいです。
- ベストアンサー
- オフィス系ソフト
- 【エクセル または OpenOffice】 A列が数値で、B列が空白の行の数をカウントしたい
たびたびお世話になります。 A列が数値で、B列が空白の行の数をカウントしたいのです。 =COUNTIF(A1:A100,"B1:B100=""") この記述ではうまくいきません。どこが間違っているでしょうか？ 【追伸】 実はエクセルの代わりにOpenOfficeを使っています。 OpenOfficeの場合、同じ記述で大丈夫でしょうか？（引数の区切りがセミコロンであること以外で）
- ベストアンサー
- オフィス系ソフト
- VBA 隣の文字列のセルが4桁以下の時
いつもお世話になります。 WINDOWS7 EXCELL2010 です。 下記のマクロはWクリックでB列に ○ 印ができるマクロです。 この ○ 印はA列にある沢山あるシート一覧で不必要になったシートのみを選択し別のマクロで削除するためです。 A列には別のマクロでシートの一覧を 2桁 3桁 と 4桁の文字列が入り混じっています。 例えば 入力 検索 利用 シート / 0101 1231 1117 (0101～1231) のように。 現在は誤ったシートの削除の防止をするために 条件付書式( =(LEN($A2)>3)*($A2<>"") )でB列に色付けして○印が入力できるセルを示しています。 ただ色付けでは完全には防止できないので下記のマクロの中で何とか処理できないものかと御指導いただけたら幸いです。 御指導願いたいのは、A列が >3文字 の時だけに ○ 印がWクリックして入力したい。 ※下記のマクロの中で、 If Len(Target Range(“A2:A51)) < 4 Then ‘A2～A51の範囲で４文字以下の時はB2～B51には入力できず End If は私が考えたイメージです。 参考 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A2:A51")) Is Nothing Then 'この範囲がＷクリックされた時 Cancel = True Sheets(CStr(Target.Value)).Select ElseIf Not Application.Intersect(Target, Range("B2:B51")) Is Nothing Then 'この範囲がＷクリックされた時 Cancel = True Target = IIf(Target = "", "○", "") End If If Len(Target Range(“A2:A51)) < 4 Then ‘A2～A51の範囲で４文字以下の時はB2～B51には入力できず End If End Sub
- ベストアンサー
- Excel（エクセル）
- 列の奇数のカウントの方法
ある列に１セルに１つの数字（1桁や2桁）があり、その列の奇数の数をカウントしたいのですが、適当な関数はありますでしょうか？ 教えてください。
- ベストアンサー
- オフィス系ソフト
- VBAで任意の文字列の数のカウント方法を教えてください。
VBAで任意の文字列の数のカウント方法を教えてください。 A a:b c:d a:b:d c:d a a:b:c:d ・ ・ ・ というデータがあります。 ひとつのセルにa～dまでの項目がランダムに入っており、項目は：で区切られています。 1つのセルに項目が重複することはありませんが、入っている項目数はバラバラです。 空白もあり得ます。 データの数（行数）は都度、変わります。 この時のa～dの項目のそれぞれの集計を取りたいのですが、VBAで作成する方法を教えてください。 トータルで、aが4個、bが3個、cが3個、という集計を一度に出したいのです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
補足
早速の御回答ありがとうございます。 =SUM(IF(FREQUENCY(A1:A13, A1:A13)>0, 1, 0)) の部分が正しい値（ここでは「５」）を出してくれないのですが、.....。