打卡机太灵敏经常重复打卡 ，请大神指导如何快速形成B列中数据

power query，添加列，用空格分割成列表，列表去重，用空格连接列表

如果都像这条数据一样，字符串取个头尾就可以了

最彻底的解决办法
不是任何公式
不是PQ
也不是代码
更不是找大佬请教
是
换个考勤机
换了还不行
那就再换一台
没有什么是钱解决不了的
如果有
那就是你的钱没花到位

B1=SUBSTITUTE(SUBSTITUTE(A1&" ",MID(A1,COLUMN(A1)*6-5,6),MID(A1,COLUMN(A1)*6-5,5)&",",1),MID(A1,COLUMN(A1)*6-5,6),"")
横拖公式足够远（应该不超过G列）
H1=SUBSTITUTE(A1,","," ")
前提是严格按时间空格格式

Option Explicit
Sub abc()
　Dim a, i, j, t, d
　a = [a1].CurrentRegion.Offset(1).Resize(, 1).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 1 To UBound(a)
　　t = Split(a(i, 1))
　　For j = 0 To UBound(t)
　　　If Len(t(j)) Then d(t(j)) = 1
　　Next
　　a(i, 1) = Join(d.keys): d.RemoveAll
　Next
　[b2].Resize(UBound(a) - 1) = a
End Sub

赞同9楼

反正WPS一个不能用就随便写写
=TEXTJOIN(" ",,UNIQUE(TRIM(MID(A1,ROW($1:$10)*6-5,6))))