Sub 组合()stt = InputBox("请输入9个数并用,隔开。如1,4,6,8,17,20,29,45,60", "输入", "1,4,6,8,17,20,29,45,60")arr = Split(stt, ",")num = UBound(arr)rownum = 2Range("A1").Value = "组数"Range("B1").Value = "数一"Range("C1").Value = "数二"Range("D1").Value = "数三"Range("E1").Value = "数四"Range("F1").Value = "数五"If (num8) Then ... |