求助如何循环重复A列和B列的信息值

aa7701914

求助:请根据AB列数据循环得出两列的数值并展示到其它两列里（不用考虑重复）
如上边效果图,不管A和B列两列数据有多少，匹配重复循环展示到其它区域便可，谢谢了。
（附件上传不了，数据源很简单麻烦自己随便拟一个，谢谢）

jiangxiaoyun

powerquery生成笛卡尔积。
1：两列数据分成两表上传到powerquery编辑器
2：两表分别添加自定义列  =1
3：合并查询

aa7701914

jiangxiaoyun 发表于 2017-9-21 09:22
powerquery生成笛卡尔积。
1：两列数据分成两表上传到powerquery编辑器
2：两表分别添加自定义列  =1 ...

能不能直接使用代码展示出来呀，这个的话自己修改还好，别人就不懂得改了，谢谢大侠

CC例例

根据楼主题意写了个，没有测试，供参考

1. Sub test()
   
2.     Dim arA, arB, i&, x&, y&
   
3.     [d1].CurrentRegion.Offset(1).ClearContents
   
4.     arA = [a1].CurrentRegion
   
5.     i = Cells(Rows.Count, 1).End(3).Row - 1
   
6.     ReDim arB(1 To (UBound(arA) - 1) * i, 1 To 2)
   
7.     For i = 2 To UBound(arA)
   
8.         If Trim(arA(i, 1)) <> "" Then
   
9.             For x = 2 To UBound(arA)
   
10.                 y = y + 1
    
11.                 arB(y, 1) = arA(i, 1)
    
12.                 arB(y, 2) = arA(x, 2)
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     [d2].Resize(y, 2) = arB
    
17. End Sub

复制代码

microyip

把两列数分别读为数组，然后历遍两个数组，组成新数组

aa7701914

CC例例 发表于 2017-9-21 09:28
根据楼主题意写了个，没有测试，供参考

感谢大侠了，可以了。

另外如果我想把这生成数据放到指定的工作表中，比如放到“销售报表”，那代码中的位置得修改哪个，求指点，谢谢了

aa7701914

CC例例 发表于 2017-9-21 09:28
根据楼主题意写了个，没有测试，供参考

啊哦，刚才测试错了，这个效果不对。。。麻烦大侠试一下。谢谢

CC例例

aa7701914 发表于 2017-9-21 09:46
感谢大侠了，可以了。

另外如果我想把这生成数据放到指定的工作表中，比如放到“销售报表”，那代码中 ...

最后的输出语句：[d2].Resize(y, 2) = arB
改为(输出位置以A2单元格为起始位置)：Sheets("销售报表").[a2].Resize(y, 2) = arB

aa7701914

CC例例 发表于 2017-9-21 09:59
最后的输出语句：[d2].Resize(y, 2) = arB
改为(输出位置以A2单元格为起始位置)：Sheets("销售报表").[a ...

好咧，但是效果不对，重复循环的结果：都是固定的区域，比如A列有3个值，B列有2个值，出来的结果应该是6个，你这个出来的结果是根据A列的值循环，得到9个值了。

aa7701914

结果不是太对。请看图