[已解决][求助]如何用函数得到？

寒江非雪

如：

       A    B    C    D    E    F    G

1     10  11  14   17   18  19   25           10、11；17、18、19共5个连续号码

2      1    2    10   15   16  19   22           1、2；15、16共四个连号

怎么求得呢？

最佳答案

月排行榜 / 总排行榜

Q1011068224

2009-9-28 09:53

=SUM(--TEXT(FREQUENCY(A1:G1,IF(ISNA(MATCH(A1:G1+1,A1:G1,)),A1:G1)),"[>1]0;!0"))

跳转到最佳答案楼层

搁浅2008

函数不会  VBA会[em08]

airria

我也在等答案

lotte

用函数不会

用VBA也不会

[em06][em06]

kkk2009

没附件啥都不会

[em03][em03]

搁浅2008

0BmOV2L1.rar (6.89 KB, 下载次数: 0)

2009-9-28 09:48 上传

点击文件名下载附件
[求助]如何用函数得到？

Sub aa()
    Dim i As Long
    Dim j As Long
    Dim b As Boolean
    Dim a As String
    For i = 1 To 2
        For j = 1 To 6
            If Cells(i, j) = Cells(i, j + 1) - 1 Then
                If b = True Then
                    a = a & "," & Cells(i, j + 1)
                Else
                    a = a & Cells(i, j) & "," & Cells(i, j + 1)
                End If
                b = True
            Else
                If b = True Then
                    a = a & ";"
                    b = False
                End If
            End If
        Next j
        Cells(i, 9) = Left(a, Len(a) - 1)
        a = ""
    Next i
End Sub

复杂了一点

[em04]

寒江非雪

QUOTE:

以下是引用kkk2009在2009-9-28 9:31:00的发言：

没附件啥都不会

[em03][em03]

有附件了你会啥的？

搁浅2008

有了附件可能多个人帮你做  ，自己做附件有的人就不喜欢看了[em04]

Q1011068224

=SUM(--TEXT(FREQUENCY(A1:G1,IF(ISNA(MATCH(A1:G1+1,A1:G1,)),A1:G1)),"[>1]0;!0"))

amulee

貌似函数可以做