次数统计

lgzxmlg · 发表于 2023-4-29 16:53

本帖最后由 lgzxmlg 于 2023-4-29 17:09 编辑

如果实现表中的结果

次数统计.zip (35.16 KB, 下载次数: 10)

582766 · 发表于 2023-4-29 17:14

逻辑是什么，谁看得懂？？？

cjc209 · 发表于 2023-4-29 17:16

582766 发表于 2023-4-29 17:14
逻辑是什么，谁看得懂？？？

他是指连续相同的状态数目

cjc209 · 发表于 2023-4-29 17:40

去参考吧应该是你要的结果

lgzxmlg · 发表于 2023-4-29 18:27

cjc209 发表于 2023-4-29 17:40
去参考吧应该是你要的结果

谢谢帮忙。正是我要的。

gwjkkkkk · 发表于 2023-4-29 18:36

参与一下。。。

准提部林 · 发表于 2023-4-29 22:18

Sub TEST_A1()
Dim Arr, Brr, N&(19), T$(19), i&, j
With [A1].CurrentRegion
   Arr = .Value
   For i = 2 To UBound(Arr)
      For Each j In Array(3, 5, 7, 10, 12)
         If Arr(i, j) <> T(j) Then T(j) = Arr(i, j): N(j) = i
         Arr(i, j + 1) = Empty
         Arr(N(j), j + 1) = Arr(N(j), j + 1) + 1
      Next j
   Next i
   .Value = Arr
End With
End Sub

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

[求助] 次数统计

评分

评分