[[20190115000229]] 『同じ位置にある個数を数えたい』(ひで) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『同じ位置にある個数を数えたい』(ひで)

お世話になります。
業務で表を作成することになり、知恵を貸していただきたく投稿します。

例えば1月の勤務表があったとして、
その日に2人以上勤務していた日は何日あるのか数えたいです。

表の形式としては

        日にち      1 2 3 4 5 …

名前

        Aさん       ○  ○    ○
        Bさん       ○  ○
        Cさん       ○     ○ ○

とゆう形式で考えており、
◯を出勤日とした場合、2人以上勤務していた日数は1,2,4の3日間というように求めたいです。
出勤日の表し方は、◯以外でも、もっといいやり方があれば変えていただいても構いません。

何卒よろしくお願いします。

< 使用 Excel:Excel2013、使用 OS:Windows8 >


 Sheet1

     A        B    C    D    E   
  1  日にち     1    2    3    4 
  2  Aさん    ○   ○        ○  
  3  Bさん    ○   ○            
  4  Cさん    ○        ○   ○  

 Option Explicit
 Sub main()
    Dim i As Long
    Dim rr As Range
    Dim dstr As String
    Dim cnt As Long
    With Worksheets("Sheet1")
        Set rr = .Range("A1").CurrentRegion
        For i = 2 To rr.Columns.Count
            If WorksheetFunction.CountA(.Range(rr(2, i), rr(rr.Rows.Count, i))) >= 2 Then
                dstr = dstr & rr(1, i) & ","
                cnt = cnt + 1
            End If
        Next
        MsgBox Left(dstr, Len(dstr) - 1) & vbCrLf & cnt & " 日間"
    End With
 End Sub
(隠居じーさん) 2019/01/15(火) 07:11

 隠居じーさんさんの表を借りて。
 =SUMPRODUCT((COUNTIF(OFFSET(A2:A4,,ROW(1:31)),"○")>1)*1)
 ではどうか?
(ねむねむ) 2019/01/15(火) 09:15

隠居じーさん様、ねむねむ様、ありがとうございました!
やってみます!
(ひで) 2019/01/16(水) 03:44

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.