一行数据变动的次数

周先生L · 发表于 2024-10-6 08:30

001 5 7 8 5 5 5 9 8 3 结果是变动7次，连续想同的数不做变动统计

我走我流 · 发表于 2024-10-6 08:40

这样？=SUM(IF(A1:H1=B1:I1,,1))+1

我的城市你来过 · 发表于 2024-10-6 09:02

=COUNTA(A1:L1)-SUM(IFNA(LET(a,LEN(REDUCE("",UNIQUE(TOCOL(A1:L1)),LAMBDA(x,y,VSTACK(x,HSTACK(y,REGEXP(CONCAT(IF(A1:L1=y,1,0)),"[^0]+")))))),IF(a>1,a,0)),0))

ww87725244 · 发表于 2024-10-6 10:42

=COUNTA(REGEXEXTRACT(CONCAT(A1:I1),"(\d)\1*",1))

周先生L · 发表于 2024-10-6 11:20

我的城市你来过发表于 2024-10-6 09:02
=COUNTA(A1:L1)-SUM(IFNA(LET(a,LEN(REDUCE("",UNIQUE(TOCOL(A1:L1)),LAMBDA(x,y,VSTACK(x,HSTACK(y,REGEXP ...

感谢，表格是样的，

周先生L · 发表于 2024-10-6 11:22

ww87725244 发表于 2024-10-6 10:42
=COUNTA(REGEXEXTRACT(CONCAT(A1:I1),"(\d)\1*",1))

感谢，应用到表格呢？好像不行

周先生L · 发表于 2024-10-6 11:23

我走我流发表于 2024-10-6 08:40
这样？=SUM(IF(A1:H1=B1:I1,,1))+1

感谢，这样的表怎么应用

ww87725244 · 发表于 2024-10-6 11:41

周先生L 发表于 2024-10-6 11:22
感谢，应用到表格呢？好像不行

=COUNTA(REGEXEXTRACT(CONCAT(B2:BU2),"(\d+)\1",1))-1

mykitami · 发表于 2024-10-6 11:46

=TAKE(SCAN(0,A1:I1,LAMBDA(x,y,IF(y=OFFSET(y,,1),x,x+1))),,-1)

niko88819 · 发表于 2024-10-6 12:48

BV2 下拉

=IFERROR(CountChanges(B2:BU2),"")

Function CountChanges(rng As Range) As Long
Dim count As Long
Dim i As Long
Dim lastValue As Variant
count = 0
lastValue = rng.Cells(1, 1).Value
For i = 2 To rng.Cells.count
If rng.Cells(i).Value <> lastValue Then
count = count + 1
lastValue = rng.Cells(i).Value
End If
Next i
If rng.Cells(1, 1).Value <> rng.Cells(2).Value Then
count = count + 1
End If
CountChanges = count
End Function

复制代码

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

[求助] 一行数据变动的次数

评分