EXCEL公式:怎样把两个单元格中的每一个字符进行重新组合输出多组结果...

发布网友发布时间：2024-10-14 10:12

共4个回答

热心网友时间：2024-10-15 02:40

Sub 拆分组合()

Dim i, j, k As Integer

Dim arr(1 To 1000)

For i = 1 To Len(Range("a2"))

For j = 1 To Len(Range("b2"))

k = k + 1

arr(k) = Mid(Range("a2"), i, 1) & Mid(Range("b2"), j, 1)

Next j

Next i

[c2].Resize(UBound(arr), 1) = Application.Transpose(arr)

End Sub

热心网友时间：2024-10-15 02:39

热心网友时间：2024-10-15 02:38

这个函数肯定搞不定，要用万能的vba。不过字符数量过大，貌似也有问题，如果1万*1万，就是1亿次组合，内存都没法放数据。难度就大了

热心网友时间：2024-10-15 02:44

c2=IF(COLUMN(A2)>LEN($A2)*LEN($B2),"",MID($A2,ROUNDUP(COLUMN(A2)/LEN($B2),0),1)&MID($B2,MOD(COLUMN(A2)-1,LEN($B2))+1,1))右拉下拉

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com