1、在A列输入1-11个数字，在按快捷健ALT+F11调出VB代码框，如图所示
2、在右边出现的方框粘贴以下代码，在最小化窗口Function 朱科技(zhu As Range, num As Integer)R = zhu.Rows.CountFor C1 = 1 To RFor C2 = C1 + 1 To RFor C3 = C2 + 1 To RFor C4 = C3 + 1 To RFor C5 = C4 + 1 To Rrr = rr + 1朱科技 = zhu(C1, 1) & "," & zhu(C2, 1) & "," & zhu(C3, 1) & "," & zhu(C4, 1) & "," & zhu(C5, 1)If rr = num Then Exit FunctionNextNextNextNextNextEnd Function
