エクセルを使用して、資格表を作成しました。
その表の 各部署の人数を計算したいです。
下記をご覧ください。
1 2 3
A 総務部 鈴木 普通自動車免許
B 総務部 鈴木 簿記3級
C 総務部 木村 秘書検2級
D 経理部 浅田 簿記2級
E 経理部 浅田 普通自動車免許
F 営業部 酒井 宅建
上記の表で、部署に何名所属しているか計算したいです。
※重複した人は数えない
上の表だと、
総務部:2名 経理部:1名 営業部:1名
これを計算するにはどうすればいいですか?
※別シートに人数を計算する場合
自分で式を作ってみましたが、エラーが出てしまいます。
=SUMPRODUCT(1/COUNTIF('別シート'!$B:$D,A1))
これを使用すると、0.09090909など小数点が出てきます。
なにか方法があれば教えてください。
No.4ベストアンサー
- 回答日時:
こんにちは!
「資格」に関しては無視で良いのですね。
手っ取り早くVBAでの一例です。
↓の画像のような配置で元データはSheet1にあり、Sheet2に表示するとします。
標準モジュールにしてください。
Sub Sample1()
Dim myDic As Object
Dim i As Long, lastRow As Long
Dim wS As Worksheet
Dim myKey, myItem, myR, myAry
Set myDic = CreateObject("Scripting.Dictionary")
Set wS = Worksheets("Sheet2")
wS.Range("A:B").ClearContents
With Worksheets("Sheet1")
wS.Range("A1") = .Range("A1")
wS.Range("B1") = "人数"
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(.Cells(2, "A"), .Cells(lastRow, "B"))
For i = 1 To UBound(myR, 1)
If Not myDic.exists(myR(i, 1)) Then
myDic.Add myR(i, 1), myR(i, 2)
Else
If InStr(myDic(myR(i, 1)), myR(i, 2)) = 0 Then
myDic(myR(i, 1)) = myDic(myR(i, 1)) & "_" & myR(i, 2)
End If
End If
Next i
End With
myKey = myDic.keys
myItem = myDic.items
For i = 0 To UBound(myKey)
myAry = Split(myItem(i), "_")
wS.Cells(i + 2, "A") = myKey(i)
wS.Cells(i + 2, "B") = UBound(myAry) + 1
Next i
Set myDic = Nothing
MsgBox "完了"
End Sub
上記マクロを実行すると
画像のような感じになります。m(_ _)m
No.3
- 回答日時:
元表を作り替えた方が良いと思います。
部門名、氏名、資格1、資格2、資格3、…
として、1人毎に、該当資格に「1」を入れる、とか。
提示式における、1/COUNTIF()の意味が不明です。
たぶん重複数で割っているようですが、その個人名指定が無いのが欠点です。
元表は作り変えられませんので、方法を探していました。
私の説明不足でしたが、資格ごとに記載しているのは手当金なども入力されているからです。
ご回答いただき、ありがとうございます。
No.2
- 回答日時:
>エクセルを使用して、資格表を作成しました。
(中略)
>下記をご覧ください。
ええと、
A2セルに「A」、A3セルに「B」…B1セルに「1」、C1セルに「2」…などと入力する意味無いと思うんだ。
・・・本題・・・
自分ならCOUNTIFS関数を使って同じ名前がいくつあるのかを数えるふりをして、一番初めにカウントされた名前だけを再度COUNTIFS関数でカウントするような事をする。
作業用の列を設けて、一時的な結果を表示させるようにして、それを集計するという感じですね。
・・・余談・・・
ピボットテーブルを使うと幸せになれるような気もしなくはない。
No.1
- 回答日時:
> =SUMPRODUCT(1/COUNTIF('別シート'!$B:$D,A1))
どっかで見つけた式を思いつきで使ったんでしょうけど……
COUNTIFじゃ話になりませんし そもそも「A1」だけ指定しても意味が
ありません。もし本当に「列」で指定するなら COUNTIFSでの処理を
104万行に対して実行してそれを合計することになります。
最悪フリーズする可能性があるので 間違ってて良かったというべきで
しょうね。
> なにか方法があれば教えてください。
データ量がどのくらいあるのか明示しておくべきだと思います。
数式で対応するのは せいぜい数千~1万行くらいまでです。
別シートの E列に
=1/COUNTIFS(B:B,B1,C:C,C1)
最終行までコピー
E列を SUMで合計すればいいでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 就職 僕発達障害3級を患ってるんですが、 会計や経理などの事務職とコープでのルート配送どっちがいいですか? 2 2022/10/06 22:31
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- その他(職業・資格) 【資格】あらゆる資格(国家資格・民間資格)の強さの格付けランキングを作ってみました! 4 2023/02/11 16:56
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
- 転職 (追記のため、再投稿) メガバンク5年目で、住宅ローンの与信審査をしてます。 資格は簿記3級とFAS 1 2022/10/30 11:10
- Excel(エクセル) 【エクセル】COUNTIFの検索条件が可変する数字の場合の数式 1 2022/09/27 15:34
- 中途・キャリア さて、社会人になってから13年目。 今まで、機械設計、機械製品の品質管理、部門の経営企画をやってきま 4 2023/07/17 08:59
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- 転職 メガバンク5年目で、住宅ローンの与信審査をしてます。 資格は簿記3級とFASS検定(経理財務スキル検 1 2022/10/29 21:01
- 就職 就職先 どちら 2 2022/09/29 18:54
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
excelで社数と人数をカウントしたいのですが
Excel(エクセル)
-
EXCEL
Excel(エクセル)
-
エクセルで社員数把握(部署ごと、職種ごと、日ごと)
Excel(エクセル)
-
-
4
エクセルで期間別の在籍人数をカウントする方法を教えてください
Excel(エクセル)
-
5
エクセルで、条件をつけて人数の集計をしたいです!
その他(ビジネス・キャリア)
-
6
勤続年数の平均を求めたい時の関数
Windows Vista・XP
-
7
「社長様いますか」という営業電話に、そろそろガツンと言いたい
ビジネスマナー・ビジネス文書
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのセルで整数のみ選択...
-
エクセル 表の人数を計算したい...
-
エクセルで、条件をつけて人数...
-
エクセル集計ひと月を4週に分...
-
エクセルの一覧からカードを作...
-
エクセルの範囲指定について
-
AdvancedFilterを使って値のみ...
-
半角の引用符 “ ” の打ち方
-
名前(平仮名)を数字に変換する...
-
「“」と「”」について
-
パソコンでダウンロードしたmp4...
-
エクセルで空白を無視して一番...
-
キーボードで英数字の半角と全...
-
半角で漢字を??
-
フォルダ名を並び替えても必ず...
-
直径を表す記号はどうすれば出...
-
エクセルの挿入図形で文字が隠...
-
キーボードの感度が良すぎて困...
-
マウスの左ボタンでファイルを...
-
半角英数で「¥」を入力したい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、条件をつけて人数...
-
エクセルのセルで整数のみ選択...
-
エクセルの一覧からカードを作...
-
エクセル 表の人数を計算したい...
-
エクセルの範囲指定について
-
エクセルで複数行に渡ったセル...
-
excel VBA コピーした行を、指...
-
エクセル集計ひと月を4週に分...
-
エクセルで一次線形補間する方法
-
AdvancedFilterを使って値のみ...
-
5円単位の切り上げ関数
-
A3やB4のA,Bって何かの略ですか?
-
エクセルで参加者一覧表から参...
-
エクセルで住所一覧から都道府...
-
Excel2007での記入後の英語の小...
-
エクセルシート同一項目内の重...
-
エクセルVBAで値だけをコピーペ...
-
EXCELで表組って?
-
エクセルで表の一部をコピーし...
-
エクセルでユニーク数を求めた...
おすすめ情報