返回列表 上一主題 發帖

有關將資料不重覆貼上的問題!!!

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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)的範圍重覆貼至同一欄有辦法做到嗎??
請各位大大指點一下!!!
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
267  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2010-8-27 21:19 | 只看該作者
回復 5# GBKEE
這樣的結果是A:D的不重複清單
若每欄個別篩選其結果是單欄不重複，但4欄全部還會有重複
端看樓主需求為何?若使用Dictionary物件處理成為與進階篩選同樣效果而去除標題的話
每欄位加一個迴圈節數每一回圈前清除一次Dictionary物件即可
學海無涯_不恥下問

TOP

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
6#
發表於 2010-8-27 20:07 | 只看該作者
回復 5# GBKEE


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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 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
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
267  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
3#
發表於 2010-8-26 23:12 | 只看該作者
若是資料是
    A    B    C
1   美國 美國 新加波
2   日本 英國 新加波
3   英國 英國 日本
4   日本 新加波 日本
5   日本 英國 美國
類似這樣但是...就是好幾欄都有資料需要不重複貼上有辦法做到嗎?

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2010-8-26 22:25 | 只看該作者
EX:range(A1:D10)的範圍重覆貼至同一欄有辦法做到嗎??
很難看懂說什麼！

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題