excel中一个单元格里里面有好几个相同的数，怎么提取到另外的单元格

用函数公式长了一点：b1公式：
=IFERROR(INDEX(MID($A1,{1,2,3,4,5,6,7,8,9,10,11},1),SMALL(IF(FREQUENCY(MATCH(MID($A1,{1,2,3,4,5,6,7,8,9,10,11},1),MID($A1,{1,2,3,4,5,6,7,8,9,10,11},1),),MATCH(MID($A1,{1,2,3,4,5,6,7,8,9,10,11},1),MID($A1,{1,2,3,4,5,6,7,8,9,10,11},1),))>1,ROW($A$1:$A$11),100),COLUMN(A1))),"")按ctrl+shift+enter后向右填充4格后向下填充

只考虑连续3个数的情况吗？

可以用vba实现，打开代码窗口（Alt+F11），插入模块，复制粘贴以下代码：

Function tiqu(s As String)
    Dim i As Integer, s1 As String, s2 As String
    
    For i = 1 To Len(s)
        If i > Len(s) - 5 Then '若超过指定位置返回空值
            tiqu = ""
            Exit Function
        End If
        
        s1 = Mid(s, i, 3)
        s2 = Mid(s, i + 3, 3) 's2为与s1后相邻的3个字符
        
        If s1 = s2 Then
            tiqu = s1
            Exit Function
        End If
        
    Next
End Function

 在B1中输入公式：=tiqu(A1)即可，若没有重复数字，则返回空

人教版五年级第九册语文第二单元作文ppt课件