早教吧作业答案频道 -->其他-->
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组四位数.

要求如下:

2位数分别在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
四个中括号内的改成你自己的.
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
四个中括号内的改成你自己的.
看了 EXCEL中,如何将2位数,...的网友还看了以下:
高中光电门位移问题公式V²-Vo²=2aSV=d/t在加速运动中D/T应该是平均速度,也就是中间位 2020-05-13 …
英语读音L前后都有元音时该怎么发音?例如analogy/əˈnælədʒi/,l还要先读“凹”再度 2020-06-14 …
某地区预在河边建一工厂,排放含氯化物废水,流量为2.83m3/s,含盐量1300mg/L.该河平均 2020-06-25 …
某DNA分子中,G+C之和占全部碱基的35.8%,一条链的T与C分别占该链碱基总数的32.9%和1 2020-06-26 …
0.5L某氯化锌溶液中含有3.01*10^23个氯离子,则该氯化锌溶液的物质的量浓度为( )A.0 2020-06-27 …
将0.1mol/L硝酸和0.03mol/L氢氧化钠溶液以等体积混合后,该混合溶液的pH是A.1.7 2020-06-27 …
我用matlab求定积分,求出的结果中含有下划线Z,并且还在RootOf,该如何处理?clearcl 2020-11-01 …
设l,m,n是三条不同的直线,α,β是两个不重合的平面,则下列命题正确的是()A.α∥β,l⊂α,n 2020-11-02 …
若往20mL0.01mol/L的弱酸HNO2溶液中逐滴加入一定浓度的烧碱溶液,测得混合溶液的温度变化 2020-11-11 …
PCR引物浓度一般选多少?进行PCR反应时的两条引物浓度选多少度合适?一般是多大范围?我把引物浓度稀 2020-12-25 …