早教吧作业答案频道 -->其他-->
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位数,...的网友还看了以下:
17个科学家,6人一组,7个生物学的,4个物理学,6个化学的,求有多少种组合?2.求2个物理,2个 2020-05-14 …
有13个队参加篮球赛,比赛分为两个组,第一组7个队,第二组6个队,各组先进行单循环赛(即每队都要与 2020-06-28 …
有13个队参加篮球赛,比赛分为两个组,第一组7个队,第二组6个队,各组先进行单循环赛(即每队都要与 2020-06-28 …
我市举行小学生乒乓球比赛,比赛前先把参赛的13个运动员分成2个组,第一组7人,第二组6人,比赛开始 2020-06-28 …
体育课上,五年级3班第一组7名同学掷垒球的成绩分别是:21.7m,33.2m23.5m28.7m2 2020-07-04 …
有13个队参加篮球赛,比赛分为两个组,第一组7个队,第二组6个队,各组先进行单循环赛(即每队都要与 2020-08-02 …
感兴趣的请进从1到10十个数中选7个,可重复选择(即选后放入),选出的数若不考虑顺序,则选到某一组7 2020-10-31 …
第一题从1,2,3,4,5,6,7,8,9这9个数中取出两个数,使他们的和是偶数,共有多少种取法.有 2020-11-18 …
一组7个不同的正整数由小到大从左到右排列成一列,这组数的和为100.这7个数从左到右第三个数取值尽可 2020-12-09 …
有13个球队参加篮球比赛.比赛分两个组,第一组7个队,第二组6个队.各组内先进行单循环赛(即每队都要 2021-01-09 …