如何移除陣列內重複的部分(STRING) - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何移除陣列內重複的部分(STRING)

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

[發問] 如何移除陣列內重複的部分(STRING)

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

1^# 跳轉到 »

發表於 2020-5-18 05:13 | 顯示全部帖子

回復 1# PKKO

提供一個不使用字典物件的寫法

Arr 處理過後得到一個不重複的 Brr 陣列

Sub test()
Arr = Array("XX", "aa", "ab", "ab", "ab", "XX", "ab")
T$ = ""
For Each Item In Arr
If InStr(T$, Item) = 0 Then T = Trim(T & " " & Item)
Next
Brr = Split(T, " ")
End Sub

複製代碼

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2020-5-18 12:44 | 顯示全部帖子

本帖最後由 n7822123 於 2020-5-18 12:46 編輯

回復 10# 准提部林

哈哈，感謝準大糾正~~~ 是我欠考慮了

修正程式

Sub test()
Arr = Array("XX", "aa", "ab", "ab", "ab", "XX", "ab")
T$ = ""
For Each Item In Arr
If InStr(" " & T$ & " "," " & Item & " ") = 0 Then T = Trim(T & " " & Item)
Next
Brr = Split(T, " ")
End Sub

複製代碼

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

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