请老师做一下修改：输出F列大于D列的6个数的组合

三票

请老师做一下修改：输出F列大于D列的6个数的组合

EHGOOD

需求描述太简短，连蒙带猜一下。

chxw68

1. Sub test2()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
6.         arr = .Range("b2:d" & r)
   
7.         r = .Cells(.Rows.Count, 6).End(xlUp).Row
   
8.         brr = .Range("f2:h" & r)
   
9.         ReDim crr(1 To 10000, 1 To 6)
   
10.         m = 0
    
11.         For i = 1 To UBound(arr)
    
12.             For k = 1 To UBound(brr)
    
13.                 If brr(k, 1) > arr(i, 3) Then
    
14.                     m = m + 1
    
15.                     For j = 1 To 3
    
16.                         crr(m, j) = arr(i, j)
    
17.                         crr(m, 3 + j) = brr(k, j)
    
18.                     Next
    
19.                 End If
    
20.             Next
    
21.         Next
    
22.         .Range("v2").Resize(m, 6) = crr
    
23.     End With
    
24. 
    
25. End Sub
    
26. 
    

复制代码

chxw68

两层循环遍历。