早教吧作业答案频道 -->其他-->
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位数,...的网友还看了以下:
歇后语:1.孔夫子搬家()2.四月的冰河() 2020-04-12 …
2开头的多位数应该怎么读如27854应该读作两万七千八百五十四还是应该读作二万七千八百五十四 2020-06-11 …
为什么一年会有四季?填空题与判断题一、填空题1.阳光的射与射造成了地球上不同地区气温的不同.2.四 2020-06-20 …
把99拆成四部分,使所得的四个数中,第一个数加上2,第二个数减去2,第三个数乘以2,第四个数除以2 2020-06-22 …
四边形已知对角线向量求面积在四边形ABCD中,向量AC=(1,2)向量BD=(-4,2)则该四边形 2020-07-08 …
1.Itmustrainlastnight,()thegroundiswet.(For/becau 2020-07-27 …
修改病句1西部开发一定要以可持续发展为前提,把生态环境、自然环境、社会环境提升到一个新的高度,决不能 2020-11-11 …
如果把甲的加10,乙的减20,丙的乘以2,丁的除以2,四人的件数相等,乙实际做了几个甲乙丙丁四人一共 2020-11-19 …
把下列句子改成被动句(1)这个坚强的意志使我们克服了饥饿,疲劳,甚至是受伤的痛苦.(2)四周的山把这 2020-11-22 …
读下图,阴影部分为四个农业区。据此完成小题。1.甲、乙、丙、丁的主要经济作物依次是2.四地的农业地域 2021-01-18 …