標題: 有關將資料不重覆貼上的問題!!! [打印本頁]

---

作者: imzues    時間: 2010-8-26 15:02     標題: 有關將資料不重覆貼上的問題!!!

本帖最後由 imzues 於 2010-8-26 15:05 編輯

我想問的是原本是將D欄的資料貼過去
Columns("D:D").AdvancedFilter xlFilterCopy, CopyToRange:=[G1], Unique:=True
但若是我需要統計的是一個範圍的資料有辦法一樣貼在同一欄嗎??
EX:range(A1:D10)的範圍重覆貼至同一欄有辦法做到嗎??
請各位大大指點一下!!!

---

作者: oobird    時間: 2010-8-26 22:25

EX:range(A1:D10)的範圍重覆貼至同一欄有辦法做到嗎??
很難看懂說什麼！

---

作者: imzues    時間: 2010-8-26 23:12

若是資料是
    A    B    C
1   美國 美國 新加波
2   日本 英國 新加波
3   英國 英國 日本
4   日本 新加波 日本
5   日本 英國 美國
類似這樣但是...就是好幾欄都有資料需要不重複貼上有辦法做到嗎?

---

作者: Hsieh    時間: 2010-8-26 23:32

進階篩選的資料表，欄位名稱是必備條件
所以複製過去都會加入欄位名稱

1. Sub nn()
   
2. For i = 1 To 3
   
3.    Columns(i).AdvancedFilter xlFilterCopy, , [G65536].End(xlUp).Offset(1, 0), True
   
4. Next
   
5. End Sub

複製代碼

---

作者: GBKEE    時間: 2010-8-27 07:04

本帖最後由 GBKEE 於 2010-8-27 20:23 編輯

回復 3# imzues
試試看是否 如此

1. Sub Ex()
   
2.     Dim D As Object
   
3.     Set D = CreateObject("SCRIPTING.DICTIONARY")
   
4.     For Each E In [A1:D10]  '
   
5.        If E <> "" Then D(E.Value) = ""
   
6.     Next
   
7.     [G:G].Clear
   
8.     [G1].Resize(D.Count, 1) = Application.Transpose(D.KEYS)
   
9. End Sub

複製代碼

---

作者: imzues    時間: 2010-8-27 20:07

回復 5# GBKEE


    感謝兩位大大的方法....我等等馬上試試看 謝謝你們!!

---

作者: Hsieh    時間: 2010-8-27 21:19

回復 5# GBKEE
這樣的結果是A:D的不重複清單
若每欄個別篩選其結果是單欄不重複，但4欄全部還會有重複
端看樓主需求為何?若使用Dictionary物件處理成為與進階篩選同樣效果而去除標題的話
每欄位加一個迴圈節數每一回圈前清除一次Dictionary物件即可

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)