作业帮EXCEL中,如何将2位数,如“12'这样的数与另外一个2位数如"34”,批量组合成四位数12342位数分别在B34至D41之间的24个位置（该位置的数字会更新）.一共组合成23*12=276组四位数.要求如下：
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 00:44:15
EXCEL中,如何将2位数,如“12'这样的数与另外一个2位数如"34”,批量组合成四位数12342位数分别在B34至D41之间的24个位置（该位置的数字会更新）.一共组合成23*12=276组四位数.要求如下：
EXCEL中,如何将2位数,如“12'这样的数与另外一个2位数如"34”,批量组合成四位数1234
2位数分别在B34至D41之间的24个位置（该位置的数字会更新）.一共组合成23*12=276组四位数.
要求如下：
EXCEL中,如何将2位数,如“12'这样的数与另外一个2位数如"34”,批量组合成四位数12342位数分别在B34至D41之间的24个位置（该位置的数字会更新）.一共组合成23*12=276组四位数.要求如下：
Sub Macro1()
Dim ArrF, ArrH, ArrBoth, ArrAnser(1 To 65535, 1 To 1), i%, j%, L%
ArrF = [a1:a4]
ArrH = [B1:B4]
ArrBoth = [C1:C2]
For i = 1 To UBound(ArrF)
For j = 1 To UBound(ArrH)
L = L + 1: ArrAnser(L, 1) = ArrF(i, 1) & ArrH(j, 1)
Next j
Next i
For i = 1 To UBound(ArrF)
For j = 1 To UBound(ArrBoth)
L = L + 1: ArrAnser(L, 1) = ArrF(i, 1) & ArrBoth(j, 1)
Next j
Next i
For i = 1 To UBound(ArrBoth)
For j = 1 To UBound(ArrH)
L = L + 1: ArrAnser(L, 1) = ArrBoth(i, 1) & ArrH(j, 1)
Next j
Next i
[d1].Resize(L, 1) = ArrAnser
End Sub
四个中括号内的改成你自己的.