返回列表 上一主題 發帖

[發問] 重覆的刪除

zamamilo

帖子
26 
主題
14 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-30 
最後登錄
2023-11-6 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-3-28 16:30 | 只看該作者

[發問] 重覆的刪除

本帖最後由 zamamilo 於 2020-3-28 16:37 編輯

各位高手大大

  我有定義兩個儲存格名稱“索引區","排序區"

我只想把"索引區”的內容 重新整理到 “排序區"
且索引區的資料只在"排序區" 出現一次。

麻煩各位高手大大能幫忙解答

重覆刪除.rar (9 KB)

收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
2#
發表於 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

zamamilo

帖子
26 
主題
14 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-30 
最後登錄
2023-11-6 

論壇贊助勳章
3#
發表於 2020-3-30 11:00 | 只看該作者
謝謝准部大大回覆

  帶入後是我要的結果，但是我目前有定義兩個儲存格名稱
"索引區"  "排序區"
也就是要針對"索引區"的值整理後(索引區的範圍實際會更長或改變)
依序放入“排序區”
還請准部大大看要改哪裡？

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
4#
發表於 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

zamamilo

帖子
26 
主題
14 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-30 
最後登錄
2023-11-6 

論壇贊助勳章
5#
發表於 2020-3-31 17:46 | 只看該作者
謝謝准堤大大的幫忙，這樣就很好用了

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題