早教吧 育儿知识 作业答案 考试题库 百科 知识分享

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组四位数.

要求如下:
▼优质解答
答案和解析
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
四个中括号内的改成你自己的.