签到表汇总

ufolzq · 发表于 2025-12-9 10:20

人有言兮是然发表于 2025-12-8 17:08
B4单元格公式：

请问提示该函数无效是什么原因呢

人有言兮是然 · 发表于 2025-12-9 11:31

ufolzq 发表于 2025-12-9 10:20
请问提示该函数无效是什么原因呢

filter是动态数组，不知道你的表格软件是什么版本，wps是2023年底才有的。微软的话，是microsoft 365专有的。动态数组函数，让表格处理有了质的飞跃。建议升级更新为支持动态数组的版本。供参考！

ufolzq · 发表于 2025-12-9 11:32

快乐王子238 发表于 2025-12-8 19:27
shift所有表，在单元格里粘贴=LET(arr,1*RIGHT(A1,14),data,出勤表!B3:AG20,brr,HSTACK(TAKE(data,,1),CHOO ...

提示无效函数，修改函数后出来数据是乱码

ufolzq · 发表于 2025-12-9 11:32

人有言兮是然发表于 2025-12-9 11:31
filter是动态数组，不知道你的表格软件是什么版本，wps是2023年底才有的。微软的话，是microsoft 365专有 ...

我用的2019

人有言兮是然 · 发表于 2025-12-9 11:37

ufolzq 发表于 2025-12-9 11:32
我用的2019

展示下效率，我写的这个公式，只需要填写一个单元格。按住sheft，选择从12月31日-12月1日 31个sheet，然后把公式填入。然后所有日期的数据都有了。图片只截了两天的。希望啰嗦这么多，能打动你升级到支持动态数组的版本。

人有言兮是然 · 发表于 2025-12-9 11:42

人有言兮是然发表于 2025-12-9 11:37
展示下效率，我写的这个公式，只需要填写一个单元格。按住sheft，选择从12月31日-12月1日 31个sheet，然 ...

刚才又检查了一下公式，发现我昨天写的用了正则表达式函数，这个无论微软还是金山，都是今年才推出的。所以必须今年后半年的版本。金山的wps免费版都支持。如果用微软最新版，正在表达式函数要稍微调整下，调整为微软的正则表达式函数。

ufolzq · 发表于 2025-12-9 14:46

人有言兮是然发表于 2025-12-9 11:42
刚才又检查了一下公式，发现我昨天写的用了正则表达式函数，这个无论微软还是金山，都是今年才推出的。所 ...

感谢大神支招，用WPS就出来了

华发少年 · 发表于 2025-12-9 15:21

Sub 出勤情况()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long
Dim br()
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name <> "出勤表" Then
      sh.Delete
End If
Next sh
Application.DisplayAlerts = True
With Sheets("出勤表")
r = .Cells(Rows.Count, 2).End(xlUp).Row
y = .Cells(2, Columns.Count).End(xlToLeft).Column
If r < 3 Or y < 3 Then MsgBox "出勤工作表为空！": End
ar = .[a1].Resize(r, y)
End With
For j = 3 To UBound(ar, 2)
n = 0
ReDim br(1 To UBound(ar), 1 To 3)
If ar(2, j) <> "" Then
      For i = 3 To UBound(ar)
         If ar(i, j) = "出勤" Then
            n = n + 1
            br(n, 1) = n
            br(n, 2) = ar(i, 2)
         End If
      Next i
      If n > 0 Then
         Set sht = Sheets.Add(after:=Sheets(Sheets.Count))
         With sht
            .Name = Format(ar(2, j), "yyyy-m-d")
            .[a1] = "日期：" & Format(ar(2, j), "yyyy-m-d")
            With .[a2].Resize(1, 3)
                  .Value = Array("序号", "姓名", "签名")
                  .Borders.LineStyle = 1
            End With
            With .[a3].Resize(n, 3)
                  .Value = br
                  .Borders.LineStyle = 1
            End With
         End With
      End If
End If
Next j
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

华发少年 · 发表于 2025-12-9 15:23

vba完成，供参考

出勤表.rar (45.64 KB, 下载次数: 2)

ufolzq · 发表于 2025-12-9 16:33

华发少年发表于 2025-12-9 15:23
vba完成，供参考

感谢大师提供的另外一种方法

		自动登录	找回密码
密码			免费注册

[求助] 签到表汇总