求大神帮忙个Excel的问题 如能帮忙不胜感觉,谢谢
如何在工作表中列出1a,1b,1c,1d,1e,2a,2b,2c,2d,2e,3a,3b,3c,3d,3e,4a,4b,4c,4d,4e,5a,5b,5c,5d,5e,的...
如何在工作表中列出1a,1b,1c,1d,1e,2a,2b,2c,2d,2e,3a,3b,3c,3d,3e,4a,4b,4c,4d,4e,5a,5b,5c,5d,5e,的5位组合,如(1a,2b,3a,4b,5c).每个组合中12345和abcde不的重复. 如何列出公式?
展开
2个回答
TableDI
2024-07-18 广告
2024-07-18 广告
在上海悉息信息科技有限公司,我们深知Excel在数据处理中的重要作用。在Excel中引用不同工作表(sheet)的数据是常见的操作,这有助于整合和分析跨多个工作表的信息。通过在工作表名称前加上感叹号“!”,您可以轻松地引用其他工作表中的数据...
点击进入详情页
本回答由TableDI提供
展开全部
结果 共有14400个。我要用VBA处理。请按Alt+F11,打开VBA编辑器,插入一个模块,把下面的代码贴进去,按F5执行。
Sub 宏1()
n = 1
For i = 1 To 5
For j = 1 To 5
For k = 1 To 5
For l = 1 To 5
For m = 1 To 5
For a = 97 To 101
For b = 97 To 101
For c = 97 To 101
For d = 97 To 101
For e = 97 To 101
If Not (i = j Or i = k Or i = l Or i = m Or j = k Or j = l Or j = m Or k = l Or k = m Or l = m Or a = b Or a = c Or a = d Or a = e Or b = c Or b = d Or b = e Or c = d Or c = e Or d = e) Then
Cells(n, 1) = i & Chr(a)
Cells(n, 2) = j & Chr(b)
Cells(n, 3) = k & Chr(c)
Cells(n, 4) = l & Chr(d)
Cells(n, 5) = m & Chr(e)
n = n + 1
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
测试通过。
追问
兄弟,在吗?
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询