[已解决]高难度多条件分组排列

dsmch

Sub Macro1()
On Error Resume Next
Dim arr, brr(1 To 20000, 1 To 7), i%, j&, s&, k%
nd = [f4]: gjc = [h4]
For i = 1 To 3
    arr = Sheets(i).UsedRange
    If InStr(arr(1, 1), nd) Then
        For j = 4 To UBound(arr)
            If arr(j, 4) Like "*" & gjc & "*" Then
                s = s + 1
                For k = 2 To UBound(arr, 2)
                    brr(s, k - 1) = arr(j, k)
                Next
            End If
        Next
    End If
Next
[c7:i500].ClearContents
If s > 0 Then Range("c7").Resize(s, 7) = brr
End Sub

金点子双色球

dsmch 发表于 2014-11-21 16:34
Sub Macro1()
On Error Resume Next
Dim arr, brr(1 To 20000, 1 To 7), i%, j&, s&, k%

添加代码后，问题解决了。再次非常感谢老师。设为最佳。祝老师身体健康，万事如意！！！！