早教吧作业答案频道 -->其他-->
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位数,...的网友还看了以下:
若已定义inta[][4]={1,2,3,4,5,6,7,8,9,10,11},则表达式sizeo 2020-05-13 …
●将数组{1,1,2,4,7,5}从小到大排序,若采用(62)排序算法,则元素之间需要进行的比较次数 2020-05-26 …
将数组{1,1,2,4,7,5}从小到大排序,若采用(62)排序算法,则元素之间需要进行的比较次数最 2020-05-26 …
VB作业,求助.数组1、求Fibonacci序列1、1、2、3、5、8、13、.前50项的和.2、 2020-07-17 …
从一开始,每隔两个整数写出一个整数来,得到一列数:1、4、7、10.问第120个数是多少有数组(1 2020-07-29 …
重金急求几个简单的C语言问题.1、有一个数组{1,3,4,6,7,8},把数组当中每个元素都乘上3 2020-07-29 …
以下关于数组元素的描述,正确的是()A.数组中的每一个元素具有不同的名称,不同的下标.B.每个数组 2020-07-29 …
观察下列集合构成元素是什么?①数组1,3,5,7.②满足3x-2>x+3的全体实数.③观察下列集合 2020-07-30 …
对于二维数组[1..6,1..8],每个数据元素占2个存储单元,以列为主存储,则元素a[4,4]相当 2020-10-30 …
有一个包含了n个字符的字符串.编写一个函数,将此字符串从头开始共m个字符作为一个子字符串复制到另一个 2020-11-07 …