求助A列B列数据生成D列结果

ufoloyu

cjc209 发表于 2023-3-13 22:37
就是一个双循环就搞定 这还没有绕出来?????????

初中文化水平，好吃力，开始学习了，明年的今天会有好结果吧

ufoloyu

cjc209 发表于 2023-3-13 22:38
标椎的卡迪尔

百度查不到卡迪尔的相关信息。。。

ufoloyu

gwjkkkkk 发表于 2023-3-13 19:10
参与一下。。。

感谢帮助，感觉很好，只是还不太会学习致用

ufoloyu

ykcbf1100 发表于 2023-3-13 14:02
没有附件，大致就这样了。

有的字符被挡住了，不知道是不是这样
Sub test()
Dim arr, brr
arr = [a1:b4]
ReDim brr(1 To 100, 1 To 1)
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        m = m + 1
        brr(m, 1) = arr(i, j)
    Next
Next
Columns(4) = ""
[d1].Resize(m, 1) = brr
End Sub

ufoloyu

tanglf188 发表于 2023-3-13 14:03

提示如下：该部件的许可证信息没有找到，在设计环境中，您没有合适的许可证使用该功能

ufoloyu

gwjkkkkk 发表于 2023-3-13 19:10
参与一下。。。

我把原来的AB列数据拓展到ABC三列，结果发现ABC列最大支持行数只能是99行，否则会报错。也就无法生成120*120*120的所有组合了，不知道有没有办法突破这个瓶颈。
Sub TEST1()
    Dim ar, br, cr, i&, j&, k&, r&
   
    ar = [A1].CurrentRegion
    ReDim br(1 To UBound(ar) & UBound(ar) & UBound(ar), 1 To 1)
    For i = 1 To UBound(ar)
         For j = 1 To UBound(ar)
             For k = 1 To UBound(ar)
             r = r + 1
             br(r, 1) = ar(i, 1) & ar(j, 2) & ar(k, 3)
             Next k
        Next j
    Next i
   
    [e1].Resize(UBound(br)) = br
    Beep
End Sub

2801959927

cjc209 发表于 2023-3-13 22:38
标椎的卡迪尔

笛卡尔