如何查询特定要求的数据？奖励300元

13423850407yin

weng21509 发表于 2019-10-7 23:46
问题和要求交代不明白，此贴无解。

QQ2353663637，发文件给你吧

13423850407yin

有兴趣提供解决方案者，QQ2353663637，索取文件，奖金可商议。

13423850407yin

有奖征集解决方案，可QQ2353663637索取文件

libo5563

先猜一个，坐等大神晒代码

山菊花

Sub test()
    Dim nRow%, Arr(), Brr(), Crr(), Drr(1 To 2)
    nRow = 5 '测试数据，须修改
    Arr = Range("a1:l5").Value '测试数据，须修改
    ReDim Brr(1 To nRow, 6 To 12), Crr(6 To 12)
    For i = nRow To 1 Step -1
        For j = 1 To 6
            If Arr(i, j) <> "" Then Brr(i, 6) = Brr(i, 6) + 1
        Next
        For j = 7 To 12
            Brr(i, j) = Brr(i, j - 1) + IIf(Arr(i, j) <> "", 1, 0) - IIf(Arr(i, j - 6) <> "", 1, 0)
        Next
    Next
    For j = 6 To 12
        For i = nRow To 1 Step -1
            If Brr(i, j) > 3 Then Exit For
            Crr(j) = Crr(j) + 1
            If Crr(j) > Drr(1) Then
                Drr(1) = Crr(j)
                Drr(2) = j - 5 '如有多个答案，仅保留其中一个
            End If
        Next
    Next
    MsgBox "从第" & Drr(2) & "列开始到第" & Drr(2) + 5 & "列，每行字母格不超过3个，共有" & Drr(1) & "行。"
End Sub

sxhus

在数据库中就是一个查询就可解决了

13423850407yin

谢谢大神！谢谢EXCELHOME！已解决。

Lovertdos

有没有和我一样关心资金兑现没有的

zpy2

Lovertdos 发表于 2019-10-10 10:55
有没有和我一样关心资金兑现没有的

关心啥，我看你和我一样也没发代码啊。

Lovertdos

zpy2 发表于 2019-10-10 14:03
关心啥，我看你和我一样也没发代码啊。

我就是个看热闹的