列出1-7这7个数字的所有6位非“内换位”、非“反序”排列？

作者：绿色风分类：时间：2022-08-17 浏览：104

楼主
wjc2090742

Q：列出1-7这7个数字的所有6位非“内换位”、非“反序”排列？如123456与154236，只要组成的6个元素一样，头尾相同，无论中间怎么排列即算内换位，123456与654321算反序。如何实现？
A：

Sub text()
Dim i As Byte, j As Byte, sr$, str$, di, ar(), arr(765432), k&
Set di = CreateObject("scripting.dictionary")
sr = "1234567"
For i = 1 To 6
For j = i + 1 To 7
m = m + 1
ReDim Preserve ar(1 To 5, 1 To m)
a = i * 10 ^ 5 + j
str = Replace(Replace(sr, j, ""), i, "")
For k = 1 To 5
ar(k, m) = Replace(str, Mid(str, k, 1), "") * 10 + a
Next
Next
Next
For i = 1 To 5
For j = 1 To UBound(ar, 2)
arr(ar(i, j)) = ar(i, j)
Next
Next
For k = 123456 To UBound(arr)
If arr(k) > 0 Then di.Add k, ""
Next
Range("a:a").ClearContents
[a1].Resize(di.Count) = WorksheetFunction.Transpose(di.keys)
Set di = Nothing
End Sub

110122.rar

2楼
い卋玑┾宝珼

向小胖学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表