No.2ベストアンサー
- 回答日時:
サンプルの通りIDが数値で記入してある前提で。
C1に
=COUNT(0/FREQUENCY(IF(B2:B15="果物",A2:A15),IF(B2:B15="果物",A2:A15)))
と記入して,コントロールキーとシフトキーを押しながらEnterするなど。
#別のもっと簡単な方法:
C2に
=IF(AND(B2="果物",MATCH(A2,A:A,0)=ROW(A2)),A2,"")
以下C15までコピー
C1:
=COUNT(C2:C15)
この回答へのお礼
お礼日時:2011/05/03 16:39
作業用の列を追加したくなかったため、お教えいただいた FREQUENCY で
理想の結果となりました。配列関数を使うことは頭にありませんでした。
本当にありがとうございました。
No.1
- 回答日時:
Option Explicit
Sub koumokutasu()
Dim myDic As Object, myKey, myItem
Dim myVal
Dim i As Long
Set myDic = CreateObject("Scripting.Dictionary")
Range("D2", Range("E" & Rows.Count).End(xlUp)).ClearContents
Range("D1:E1").Value = Range("A1:B1").Value
' ---元データを配列に格納
myVal = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 2).Value
' ---myDicへデータを格納
For i = 1 To UBound(myVal, 1)
If Not myVal(i, 1) = Empty Then
If Not myDic.exists(myVal(i, 1)) Then
'---新たなkeyの時はkeyとitemを追加します
myDic.Add myVal(i, 1), myVal(i, 2)
Else
'---すでに存在しているkeyの時はitemを加算します
myDic(myVal(i, 1)) = myDic(myVal(i, 1)) + myVal(i, 2)
End If
End If
Next
' ---Key,Itemの書き出し
myKey = myDic.keys
myItem = myDic.items
For i = 0 To UBound(myKey)
Cells(i + 2, 4).Value = myKey(i)
Cells(i + 2, 5).Value = myItem(i)
Next
Set myDic = Nothing
End Sub
これの後にSUMIF()使えばいいですが
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
切ったら梨の真ん中が茶色黒く...
-
切った梨の表面に、茶色い斑点...
-
スーパーで買った1つ300円の梨...
-
7文字以上のフルーツをできるだ...
-
【果物・梨】20世紀梨と廿世紀...
-
梨の皮が黒く変色していました。
-
梨の豊水について。 頂き物の豊...
-
煮物こんにゃくの冷凍保存について
-
教えてください!!
-
スポンジケーキってどのくらい...
-
プルーンの種
-
セブンイレブンの菓子パン 「宮...
-
貰った梨が傷んでいました。販...
-
9月でも苺を買う方法
-
フランス語で「梨」を何と呼ぶ...
-
離乳食にローリエ
-
レーズンの洋酒漬けを作る時気...
-
ラズベリーの種の抜き方を教え...
-
梶井基次郎の檸檬
-
梨を今日むいておいて明日たべ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
7文字以上のフルーツをできるだ...
-
切ったら梨の真ん中が茶色黒く...
-
すいかは発酵しても食べられるか。
-
今白いちじくを食べようとして2...
-
梨の皮が黒く変色していました。
-
スーパーで買った1つ300円の梨...
-
梨の豊水について。 頂き物の豊...
-
スイカが炭酸の味!
-
こんなスイカは食べても大丈夫...
-
ラズベリーの種の抜き方を教え...
-
煮物こんにゃくの冷凍保存について
-
中黒「・」か読点「、」か?
-
【ぶどう】 友人からデラウェア...
-
切った梨の表面に、茶色い斑点...
-
ハーブソルトを代用できるもの...
-
スイカは腐るとどんな味がしま...
-
しわしわのぶどうの実をフッカ...
-
教えてください!!
-
国産ブルーベリーのほうがいい?
-
プルーンの種
おすすめ情報