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

還是資料比對的問題~

ffntldj

小學生 Rank: 1

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-15 19:16 | 只看該作者

還是資料比對的問題~

不好意思問題如下

希望將A +B +C欄位重複到的資料刪除複製到 EFG欄位
需要 A+ B+ C 都要比對有重複才能複製到EFG
謝謝各位大大了~

Q.jpg (20.38 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-9-15 21:07 | 只看該作者

回復 1# ffntldj
試試看

Sub Ex()
Dim D As Object, Rng As Range, R As Range, Ar()
Set D = CreateObject("SCRIPTING.DICTIONARY") '設立DICTIONARY物件
Set Rng = [A1:C9] '指定範圍
For Each R In Rng.Rows 'Rows 指定範圍的每一列
Ar = Application.Transpose(Application.Transpose(R.Cells.Value)) '將R轉置二次轉換為一維陣列
D(Join(Ar, ",")) = Ar 'DICTIONARY物件 KEY ->Join(AR, ",") ,DICTIONARY物件 ITEM->Ar
Next
[E1].Resize(D.Count, Rng.Columns.Count) = Application.Transpose(Application.Transpose(D.items))
'D.Count-> D的總數, Rng.Columns.Count->Rng欄位的總數.
'每一 D.ITEM 是為一維陣列 D.ITEMs ->D.ITEM的集合.
'Application.Transpose(Application.Transpose(D.ITEMS)) ->將D.ITEMS 轉置二次後為二為陣列
End Sub

複製代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-9-15 22:44 | 只看該作者

這個較建議用進階篩選
加上欄標題，進階篩選~勾選"選不重複資料"

TOP

ffntldj

小學生 Rank: 1

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

4^#

發表於 2011-9-15 23:40 | 只看該作者

本帖最後由 ffntldj 於 2011-9-15 23:42 編輯

謝謝版大～程式碼有點難我會再研究一下
另外多問一個問題如果ABC欄位裡頭的資料範圍是不固定的呢？（不只到9列）
Set Rng = [A1:C9] 這要怎麼修改？謝謝你了～
TO 超級版主
一定得用VBA@@ 沒有辦法謝謝你的教導我多學一樣謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-9-16 06:30 | 只看該作者

回復 4# ffntldj
Set Rng = Range("A1").CurrentRegion
CurrentRegion 屬性->傳回 Range 物件，該物件代表目前的區域。目前區域是指以任意空白列及空白欄的組合為邊界的範圍。唯讀。

Set Rng = Range("A1", Range("C1").End(xlDown))
End 屬性-> 傳回 Range 物件，該物件代表包含來源範圍之區域結尾處的儲存格。等於按 END+向上鍵、END+向下鍵、END+向左鍵或 END+向右鍵。唯讀 Range 物件。

TOP

ffntldj

小學生 Rank: 1

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

6^#

發表於 2011-9-19 00:15 | 只看該作者

感謝！程式碼看懂了很強大！謝謝版大～

TOP

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

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