11个数字5个一组如何用VB实现

1、在A列输入1-11个数字，在按快捷健ALT+F11调出VB代码框，如图所示

2、在右边出现的方框粘贴以下代码，在最小化窗口

Function 朱科技(zhu As Range, num As Integer)

R = zhu.Rows.Count

For C1 = 1 To R

For C2 = C1 + 1 To R

For C3 = C2 + 1 To R

For C4 = C3 + 1 To R

For C5 = C4 + 1 To R

rr = rr + 1

朱科技 = zhu(C1, 1) & "," & zhu(C2, 1) & "," & zhu(C3, 1) & "," & zhu(C4, 1) & "," & zhu(C5, 1)

If rr = num Then Exit Function

Next

Next

Next

Next

Next

End Function

3、返回到EXCEL表格中,在B1输入公式：=朱科技(A$1:A$11,ROW(A1))

一直下拉下去，如图片显示结果