请老师改一下代码

sanpiao

请老师改一下代码

砂海

像是彩票.

exyantou

1. Option Explicit
   
2. Sub 组合()
   
3. Dim arr1, arr2, arr3(1 To 10 ^ 5, 1 To 4)
   
4. Dim i&, x&, y&
   
5. Dim sh As Worksheet
   
6. Set sh = ThisWorkbook.Sheets(1)
   
7. arr1 = Range("B1:D" & [B65536].End(xlUp).Row)
   
8. arr2 = Range("F1:H" & [F65536].End(xlUp).Row)
   
9.    For x = 1 To UBound(arr1)
   
10.      For y = 1 To UBound(arr2)
    
11.        If arr2(y, 1) = arr1(x, 2) And arr2(y, 2) = arr1(x, 3) Then
    
12.          i = i + 1
    
13.          arr3(i, 1) = arr1(x, 1)
    
14.          arr3(i, 2) = arr1(x, 2)
    
15.          arr3(i, 3) = arr1(x, 3)
    
16.          arr3(i, 4) = arr2(y, 3)
    
17.        End If
    
18.      Next
    
19.    Next
    
20.   [J1].Resize(i, 4) = ""
    
21.   [J1].Resize(i, 4) = arr3
    
22. End Sub

复制代码

楼主是这个意思吗

sanpiao

exyantou 发表于 2019-12-11 23:50
楼主是这个意思吗

是这样的。感谢！您帮忙看下第二种情况怎么写

sanpiao

exyantou 发表于 2019-12-11 23:50
楼主是这个意思吗

方便时请您看下第二个代码怎么写。

exyantou

sanpiao 发表于 2019-12-13 18:19
方便时请您看下第二个代码怎么写。

在第一种的基础上稍微改下就可以了，晚上回复你

exyantou

exyantou 发表于 2019-12-13 18:42
在第一种的基础上稍微改下就可以了，晚上回复你

楼主，你第二种方法得出的结果和我的不一样，我用筛选得出的和代码得出的是一样的。

exyantou

1. Option Explicit
   
2. Sub 按第二种条件组合()
   
3. Dim arr1, arr2, arr3(1 To 10 ^ 5, 1 To 5)
   
4. Dim i&, x&, y&
   
5. Dim sh As Worksheet
   
6. Set sh = ThisWorkbook.Sheets(2)
   
7. arr1 = sh.Range("C1:F" & sh.[C65536].End(xlUp).Row)
   
8. arr2 = sh.Range("H1:J" & sh.[H65536].End(xlUp).Row)
   
9.    For x = 1 To UBound(arr1)
   
10.      For y = 1 To UBound(arr2)
    
11.        If arr2(y, 1) = arr1(x, 3) And arr2(y, 2) = arr1(x, 4) Then
    
12.          i = i + 1
    
13.          arr3(i, 1) = arr1(x, 1)
    
14.          arr3(i, 2) = arr1(x, 2)
    
15.          arr3(i, 3) = arr1(x, 3)
    
16.          arr3(i, 4) = arr1(x, 4)
    
17.          arr3(i, 5) = arr2(y, 3)
    
18.        End If
    
19.      Next
    
20.    Next
    
21.   [L1].Resize(i, 5) = ""
    
22.   [L1].Resize(i, 5) = arr3
    
23. End Sub

复制代码

第二种情况的代码。

sanpiao

exyantou 发表于 2019-12-13 22:49
第二种情况的代码。

能和您交个朋友很荣幸

sanpiao

sanpiao 发表于 2019-12-13 22:58
能和您交个朋友很荣幸

245481971QQ