如何将一个人一天的一个或多个考勤、在一行显示

cy563162419

需要大神帮助，一个人一天有多个考勤数据，或只有一条考勤数据，该怎样实现将同一天的考勤数据显示在一行中，无考勤数据则为空值！

gzfuture

公式一，数组公式ctrl+shift+enter，右拖下拉=IFERROR(IF(COLUMNS($K2:K2)>COUNTIFS($A$2:$A$23,$H2,$C$2:$C$23,$J2),"",INDEX($D$2:$D$23,SMALL(IF(($A$2:$A$23=$H2)*($C$2:$C$23=$J2),ROW($D$2:$D$23)-ROW($D$2)+1),COLUMNS($K2:K2)))),"")

公式二，用到了内置small的AGGREGATE函数，直接enter，右拖下拉
=IFERROR(IF(COLUMNS($K17:K17)>COUNTIFS($A$2:$A$23,$H17,$C$2:$C$23,$J17),"",INDEX($D$2:$D$23,AGGREGATE(15,6,(ROW($D$2:$D$23)-ROW($D$2)+1)/(($A$2:$A$23=$H17)*($C$2:$C$23=$J17)),COLUMNS($K17:K17)))),"")

任飘渺

Sub kk()
    Dim dic As Object, arr(), brr()
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
        arr = .Range("a1").CurrentRegion
        ReDim brr(1 To UBound(arr), 1 To 20)
        For i = 2 To UBound(arr)
            x = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
            If dic.exists(x) = False Then
                k = 4
                n = n + 1
                dic(x) = n
                brr(n, k) = arr(i, 4)
                a = k
            Else
                a = a + 1
                brr(n, a) = arr(i, 4)
            End If
            m = dic(x)
            brr(m, 1) = arr(i, 1)
            brr(m, 2) = arr(i, 2)
            brr(m, 3) = arr(i, 3)
        Next i
        .Range("H18").Resize(n, 20).Cells.ClearContents
        .Range("H18").Resize(n, 20) = brr
    End With
End Sub

cy563162419

gzfuture 发表于 2019-4-4 18:37
公式一，数组公式ctrl+shift+enter，右拖下拉=IFERROR(IF(COLUMNS($K2:K2)>COUNTIFS($A$2:$A$23,$H2,$C$2:$ ...

感谢大神，但公式里有一个没理解，COLUMNS($K2:K2)>COUNTIFS($A$2:$A$23,$H2,$C$2:$C$23,$J2) 这个判断语句是在说明什么含义

cy563162419

任飘渺 发表于 2019-4-8 11:12
Sub kk()
    Dim dic As Object, arr(), brr()
    Set dic = CreateObject("scripting.dictionary")

感谢大神相助~

gzfuture

cy563162419 发表于 2019-4-8 15:40
感谢大神，但公式里有一个没理解，COLUMNS($K2:K2)>COUNTIFS($A$2:$A$23,$H2,$C$2:$C$23,$J2) 这个判断语 ...

IF(COLUMNS($K2:K2)>COUNTIFS($A$2:$A$23,$H2,$C$2:$C$23,$J2) ,"",


这个判断表示，如果列数 “大于” 同时满足两个条件（姓名A列和日期C列）的和数，则显示为"空"，避免出现”#NUM!"错误提示

cy563162419

gzfuture 发表于 2019-4-8 19:46
IF(COLUMNS($K2:K2)>COUNTIFS($A$2:$A$23,$H2,$C$2:$C$23,$J2) ,"",

soga，感谢感谢~