依据规则组合内容并提取到指定位置

天地一相

感谢帮助！详见截图和附件。点击一次执行按键提取内容到B1:F1一次，直到无内容时再点击重新开始提取。

重点：逻辑上，全部提取完毕的次数是：红字区的行数乘以蓝色区的行数。

PS：我自己猜想，获得红字区的有效数据个数（行数），就是蓝字区循环提取的遍数，蓝字区逐个提取完毕算一遍。循环蓝字区的遍数时，每一遍就是红字区提取一次。

taller

然后提取到B1:H1 -- 怎么可能把这些组合都提取到一行单元格，无法保存呀

天地一相

taller 发表于 2023-1-15 00:59
然后提取到B1:H1 -- 怎么可能把这些组合都提取到一行单元格，无法保存呀

谢谢，不需要保存，按组逐一提取ben到哪里就可以了，验证使用。也是个笨办法，估计最终可能因耗时太大而放弃。

lushang2018

1. Sub 测试()
   
2.     Dim i%, j%, k%, arr, brr, m, n
   
3.     Sheet1.Activate
   
4.     brr = Range("I3:J" & Sheet1.Cells(Rows.Count, "I").End(xlUp).Row)
   
5.     arr = Range("B3").CurrentRegion
   
6.     ReDim crr(1 To 10000, 1 To 7)
   
7.     For i = 1 To UBound(arr)
   
8.         For j = 1 To UBound(brr)
   
9.             k = k + 1
   
10.             For m = 1 To 5
    
11.                 crr(k, m) = arr(i, m)
    
12.             Next
    
13.             For n = 1 To 2
    
14.                 crr(k, n + 5) = brr(j, n)
    
15.             Next
    
16.         Next
    
17.     Next
    
18.     Range("T1").Resize(k, 7) = crr
    
19. End Sub

复制代码

lushang2018

你自己调整一下输出的区域就行

天地一相

lushang2018 发表于 2023-1-15 09:18
你自己调整一下输出的区域就行

谢谢，测试了，不对。一是，红色字的区域，每一组得和蓝色字的全部都分别搭配一次。二是，搭配出的一行7列的内容需要提取在B1：H1.循环按组提取，得循环2000多万次

天地一相

小年时刻，就祝愿本站吧友们开心顺心合愿满意。

天地一相

用替代方式测试计算了下，我这想法怕是耗时惊人。正在琢磨更快的思路。