设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › EXCEL排列组合？

EXCEL排列组合？

[复制链接]
查看11 | 回复5 | 2013-1-24 11:55:51 | 显示全部楼层 |阅读模式
=IF(INT((ROW(A1)-1)COUNTA(A:A))=COUNTA(A:A),,OFFSET($A$1,INT((ROW(A1)-1)COUNTA(A:A)),0)</script>
回复

使用道具 举报

千问 | 2013-1-24 11:55:51 | 显示全部楼层
如果a列的1在a1,c1输入公式：<br />=OFFSET($A$1,(ROW(A1)-1)3,0)</script>
回复

使用道具 举报

千问 | 2013-1-24 11:55:51 | 显示全部楼层
C1中输入<br /> <br />=IF(ROW()COUNT(A$1:A$100)*COUNT(B$1:B$100),,OFFSET(A$1,(ROW(A1)-1)COUNT(B$1:B$100),)</script>
回复

使用道具 举报

千问 | 2013-1-24 11:55:51 | 显示全部楼层
使用公式：<br />=INDIRECT(A3))B</script>
回复

使用道具 举报

千问 | 2013-1-24 11:55:51 | 显示全部楼层
Private Sub CommandButton1_Click()<br />Dim arr<br />Range(A1:Q65536).ClearContents<br />arr = [A1:Q65536]<br />l = 1<br />m = 1<br />For i1 = 1 To 28<br />For i2 = i1 + 1 To 29<br />For i3 = i2 + 1 To 30<br />For i4 = i3 + 1 To 31<br />For i5 = i4 + 1 To 32<br />For i6 = i5 + 1 To 33<br />arr(l, m) = i1
[A1:Q65536] = arr<br />End Sub<br />(33*32*31*30*29*28)(6*5*4*3*2*1)=1107568<br />所以共有1107568个不同数字的组合。<br />我在计算时，把每个组合的6个不相同的数字，各用一个空格符分隔，存放在一个单元格中。<br />实际运算时间仅10秒钟即可完成，主要时间将花费在填充单元格上，全部填满约半小时。<br />因为1107568=65536*16+58992<br />所以全部填满后A-P会全部填满，Q列填到第58992行。<br />[A1:Q65536] = arr语句用来填充单元格，因运行时费时较多，我暂时把它注释掉了。代之以如下语句用来显示前10行数据，作示范。<br />For l = 1 To 10<br />For m = 1 To 17<br />Cells(l, m) = arr(l, m)<br />Next m<br />Next l<span class=\\\"evaluate\\\" id=\\\"evaluate-1271573098\\\" ><span class=\\\"evaluate-outer\\\"><span class=\\\"evaluate-inner\\\"><b class=\\\"evaluate-tip\\\" style=\\\"display:none\\\">赞同</b><span><b class=\\\"evaluate-num evaluate-num-fixed\\\">0</b></span></span></span></span><span class=\\\"f-pipe\\\">|</span><span class=\\\"comment\\\" id=\\\"comment-1271573098\\\">评论</span>
回复

使用道具 举报

千问 | 2013-1-24 11:55:51 | 显示全部楼层
M<span class=\\\"evaluate\\\" id=\\\"evaluate-1271591193\\\" ><span class=\\\"evaluate-outer\\\"><span class=\\\"evaluate-inner\\\"><b class=\\\"evaluate-tip\\\" style=\\\"display:none\\\">赞同</b><span><b class=\\\"evaluate-num evaluate-num-fixed\\\">0</b></span></span></span></span><span class=\\\"f-pipe\\\">|</span><span class=\\\"comment\\\" id=\\\"comment-1271591193\\\">评论</span>
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行