PTT數位生活區 / Office

[問題] VBA字串排列組合問題

看板Office作者 (總裁的房東)時間1年前 (2022/12/17 22:26), 編輯推噓3(3推 0噓 21→)
留言24則, 2人參與, 1年前最新討論串1/1
軟體:excel VBA 版本:2016 問題：總共有六欄項目(G~L)，每欄各有3~8項不等資料， 想要做C6取2、C6取3、C6取4、C6取5、C6取6 寫了C6取2，卡在不知道如何排除重複的資料....有請版上大神指點迷津...搞一天惹...Orz 檔案： Sub oneAoneC() Dim Ante1 As Range Dim 組合結果 As Range Dim xStr As String Dim xFN1, xFN2, xFN3 As Integer Dim xSV1, xSV2, xSV3 As String Worksheets("工作表").Activate Set Ante1 = Range("A2:A34") xStr = "-" 'Separator Set 組合結果 = Range("E2") For xFN1 = 1 To Ante1.Count xSV1 = Ante1.Item(xFN1).Text For xFN2 = 1 To Ante1.Count xSV2 = Ante1.Item(xFN2).Text 組合結果.Value = xSV1 & xStr & xSV2 Set 組合結果 = 組合結果.Offset(1, 0) Next Next End Sub -- ▉╯╰　▅▃▂ ▂ ▏ ╱ ╱ ╱ █ ╮╭ ▆▅ ▂▅▆ ▎ ╱ █ ╱ ╱ █ ╱ ▉ ◢▋ ▄▄ ▉ ◢▋ ╱ ████████████ ▉ ▆█◤ ▊ ▎ ▉ ▆█◤ ╱ ╱ █ █　 　 ▋ ▍ ▎ █ ████████████ ▉ █ 　 ▅▅ ▏ █ █ █"冰的啦" -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.230.94.14 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1671287160.A.B93.html
→
12/17 22:38, 1年前 , 1F
檔案下載點：https://ufile.io/3b9hj7ir
12/17 22:38, 1F
→
12/18 00:13, 1年前 , 2F
12/18 00:13, 2F
→
12/18 09:12, 1年前 , 3F
2F W大: 這方式我有試過，但沒辦法先做到C6取2，在做排
12/18 09:12, 3F
→
12/18 09:13, 1年前 , 4F
列組合
12/18 09:13, 4F
→
12/18 09:20, 1年前 , 5F
12/18 09:20, 5F
推
12/19 03:55, 1年前 , 6F
這題可解 他要分別做兩次排列組合
12/19 03:55, 6F
→
12/19 03:56, 1年前 , 7F
剛好可以練習遞迴
12/19 03:56, 7F
推
12/19 03:57, 1年前 , 8F
但我的遞迴很差 正好拿這題練習中
12/19 03:57, 8F
→
12/19 03:57, 1年前 , 9F
這題先別看文字
12/19 03:57, 9F
→
12/19 03:58, 1年前 , 10F
第一次要列出 1-6任取3不重複的表
12/19 03:58, 10F
→
12/19 03:59, 1年前 , 11F
依照表 取出三欄
12/19 03:59, 11F
→
12/19 04:00, 1年前 , 12F
然後 再一次排列組合 遞迴每一列
12/19 04:00, 12F
→
12/19 04:02, 1年前 , 13F
直到結束消滅。然後回到第一次的表的下一個 重複直到
12/19 04:02, 13F
→
12/19 04:02, 1年前 , 14F
結束
12/19 04:02, 14F
→
12/19 04:03, 1年前 , 15F
補充 上述取出的數字表 都是欄號列號順序參照用的數字
12/19 04:03, 15F
→
12/19 04:03, 1年前 , 16F
所以 建議丟入陣列中 再把排列好的數字帶入
12/19 04:03, 16F
→
12/19 04:04, 1年前 , 17F
利用數字 找到陣列欄列號 並提取出文字
12/19 04:04, 17F
→
12/19 04:06, 1年前 , 18F
第一題 在對岸討論區 找得到 對岸大神還給出三種解
12/19 04:06, 18F
→
12/19 04:06, 1年前 , 19F
第二題 就要自己想了 因為我也卡在這裡
12/19 04:06, 19F
推
12/19 04:09, 1年前 , 20F
第一題的關鍵字
12/19 04:09, 20F
→
12/19 04:09, 1年前 , 21F
vba 排列 cm 取n
12/19 04:09, 21F
→
12/19 19:16, 1年前 , 22F
12/19 19:16, 22F
→
12/19 19:16, 1年前 , 23F
今天先做到這裡 目前只有測試那頁能跑
12/19 19:16, 23F
→
12/19 19:18, 1年前 , 24F
我也是第一次碰 遞迴+排列組合　不是很熟 目前未完工
12/19 19:18, 24F
‣ 更多 nekomeow 的文章
文章代碼(AID): #1ZdT5ukJ (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 nekomeow 的文章
文章代碼(AID): #1ZdT5ukJ (Office)