提取双色球3连码

上天恩宠的东

双色球尾连码.zip (217.6 KB, 下载次数: 19)

2015-8-23 17:04 上传

点击文件名下载附件

天天EP

Sub 提取连尾()
    Dim arr, brr(1 To 200, 1 To 1)
    Dim i As Integer, k As Integer, j As Integer
    Dim s As String
    arr = Range("H3:Q" & Cells(Rows.Count, 1).End(xlUp).Row)
    Range("s3:s1000").Clear
    For i = 1 To UBound(arr)
        For j = 1 To 10
            If arr(i, j) <> "" Then
                k = k + 1
                s = s & arr(i, j)
                If k = 3 Then brr(i, 1) = brr(i, 1) & s
                If k = 4 Then brr(i, 1) = brr(i, 1) & arr(i, j)
                If k = 5 Then brr(i, 1) = brr(i, 1) & arr(i, j)
                If k = 6 Then brr(i, 1) = brr(i, 1) & arr(i, j)
            Else
                k = 0
                s = ""
            End If
        Next j
            If brr(i, 1) = "" Then brr(i, 1) = 1
            k = 0: s = ""
    Next i
    Range("s3").Resize(UBound(arr), 1).NumberFormatLocal = "@"
    Range("s3").Resize(UBound(arr), 1) = brr
End Sub
二个三连号，还没有处理，这种情况不多吧，要不要进行处理

上天恩宠的东

天天EP 发表于 2015-8-23 17:43
Sub 提取连尾()
    Dim arr, brr(1 To 200, 1 To 1)
    Dim i As Integer, k As Integer, j As Integer ...

谢谢你，可以用函数公式解决吗？VBA不懂。