返回列表 上一主題 發帖

[發問] 重覆的刪除

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2020-3-29 10:07 | 顯示全部帖子
Sub TEST()
Dim Arr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = [E2:E28]
For i = 1 To UBound(Arr)
    T = Arr(i, 1)
    If T <> "" And xD.Exists(T) = False Then xD(T) = ""
101: Next i
[E30].Resize(xD.Count) = Application.Transpose(xD.keys)
End Sub

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2020-3-30 12:14 | 顯示全部帖子
回復 3# zamamilo
Sub TEST()
Dim Arr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range("索引區")
For i = 1 To UBound(Arr)
    T = Arr(i, 1)
    If T <> "" And xD.Exists(T) = False Then xD(T) = ""
101: Next i
Range("排序區").Resize(xD.Count) = Application.Transpose(xD.keys)
End Sub

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題