UC知道excel 一列中如何统计相同的5个数 高分求解
来源：百度知道 编辑：UC知道 时间：2024/05/18 11:30:16
A列中有大量数据，每单元格只有一个数
像这样
3
3
1
4
5
2
7
8
9
4
1
4
5
2
7
我现在要统计出其中相同的连续5个数 就像上面的14527，至少出现两次，如果出现两次以上也要能表示出来
我是excel菜鸟 希望能讲的详细些，如何操作等等
像这样
3
3
1
4
5
2
7
8
9
4
1
4
5
2
7
我现在要统计出其中相同的连续5个数 就像上面的14527，至少出现两次，如果出现两次以上也要能表示出来
我是excel菜鸟 希望能讲的详细些，如何操作等等
我假设你的数据在A列噢,从A1开始的.
将下列代码复制到宏代码框中.运行一下就行了.
Sub aaaaaaaa()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d(1 To 63356)
Dim e As Integer
Dim f As Integer
Dim g As Integer
g = 1
f = 1
e = 1
b = 1
a = Range("a1").CurrentRegion.Rows.Count - 4
Do While b <= a
Range("b" & b) = Range("a" & b) & Range("a" & b + 1) & Range("a" & b + 2) & Range("a" & b + 3) & Range("a" & b + 4)
b = b + 1
Loop
c = WorksheetFunction.CountA(Range("b:b"))
Range("b1").Select
For x = 1 To c
If WorksheetFunction.CountIf(Range("b" & g & ":b" & c), Selection) >1 Then
d(f) = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
f = f + 1
Else
ActiveCell.Offset(1, 0).Select
End If
g = g + 1
Next
Range("c1").Select
For x = 1 To c -