作业帮 > 综合 > 作业

EXCEL中,如何将2位数,如“12'这样的数与另外一个2位数如"34”,批量组合成四位数1234

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 23:50:52
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
四个中括号内的改成你自己的.