麻辣家族討論版版 » Excel程式區 » VBA

返回列表下一主題上一主題發帖

[發問] VBA

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-6-7 11:02 | 只看該作者

[發問] VBA

請問VBA 如何將A列中的 1,2,3,4 枚舉出C列的所有順序組合。

順序組合.PNG (8.26 KB)

順序組合.PNG (8.26 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

3^#

發表於 2016-6-7 16:54 | 只看該作者

回復 2# stillfish00

感謝

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2016-6-7 16:33 | 只看該作者

Sub Test()
Dim x, y
Dim d As Object: Set d = CreateObject("scripting.dictionary")
For Each x In [a1:a4]
d.Add CStr(x), ""
Next
Dim ar: ar = d.Keys
Dim bNew As Boolean
Do
bNew = False
For Each x In d.Keys
For Each y In ar
If Right(x, 1) < y And Not d.exists(x & y) Then
d.Add x & y, ""
bNew = True
End If
Next
Next
DoEvents
Loop While bNew
[c1].Resize(d.Count) = Application.Transpose(d.Keys)
End Sub

複製代碼

回復 1# ikboy

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題