註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 有關將資料不重覆貼上的問題!!!
返回列表
下一主題
上一主題
發帖
有關將資料不重覆貼上的問題!!!
imzues
發短消息
加為好友
imzues
當前離線
UID
924
帖子
72
主題
24
精華
0
積分
172
金錢
172
點名
0
作業系統
xp
軟體版本
office 2003
閱讀權限
20
性別
男
在線時間
90 小時
註冊時間
2010-7-16
最後登錄
2023-7-6
中學生
帖子
72
主題
24
精華
0
積分
172
點名
0
作業系統
xp
軟體版本
office 2003
閱讀權限
20
性別
男
註冊時間
2010-7-16
最後登錄
2023-7-6
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 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)的範圍重覆貼至同一欄有辦法做到嗎??
請各位大大指點一下!!!
樓主熱帖
抓取另一個excel檔資料
請問將不同檔案匯入分頁的程式
用vba語法比對日期
有個儲存格月曆的問題
刪除儲存格裡ALT+ENTER所造成的換行!!
依所劃分的時間抓資料加總
樞紐分析的問題
有關sheet名稱的問題
請教一下EXCEL白底的問題
動態圖表問題
收藏
分享
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
163
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4146 小時
註冊時間
2010-4-30
最後登錄
2025-7-7
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
163
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-7-7
7
#
發表於 2010-8-27 21:19
|
只看該作者
回復
5#
GBKEE
這樣的結果是A:D的不重複清單
若每欄個別篩選其結果是單欄不重複,但4欄全部還會有重複
端看樓主需求為何?若使用Dictionary物件處理成為與進階篩選同樣效果而去除標題的話
每欄位加一個迴圈節數每一回圈前清除一次Dictionary物件即可
學海無涯_不恥下問
TOP
imzues
發短消息
加為好友
imzues
當前離線
UID
924
帖子
72
主題
24
精華
0
積分
172
金錢
172
點名
0
作業系統
xp
軟體版本
office 2003
閱讀權限
20
性別
男
在線時間
90 小時
註冊時間
2010-7-16
最後登錄
2023-7-6
中學生
帖子
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
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
5
#
發表於 2010-8-27 07:04
|
只看該作者
本帖最後由 GBKEE 於 2010-8-27 20:23 編輯
回復
3#
imzues
試試看是否 如此
Sub Ex()
Dim D As Object
Set D = CreateObject("SCRIPTING.DICTIONARY")
For Each E In [A1:D10] '
If E <> "" Then D(E.Value) = ""
Next
[G:G].Clear
[G1].Resize(D.Count, 1) = Application.Transpose(D.KEYS)
End Sub
複製代碼
TOP
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
163
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4146 小時
註冊時間
2010-4-30
最後登錄
2025-7-7
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
163
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-7-7
4
#
發表於 2010-8-26 23:32
|
只看該作者
進階篩選的資料表,欄位名稱是必備條件
所以複製過去都會加入欄位名稱
Sub nn()
For i = 1 To 3
Columns(i).AdvancedFilter xlFilterCopy, , [G65536].End(xlUp).Offset(1, 0), True
Next
End Sub
複製代碼
學海無涯_不恥下問
TOP
imzues
發短消息
加為好友
imzues
當前離線
UID
924
帖子
72
主題
24
精華
0
積分
172
金錢
172
點名
0
作業系統
xp
軟體版本
office 2003
閱讀權限
20
性別
男
在線時間
90 小時
註冊時間
2010-7-16
最後登錄
2023-7-6
中學生
帖子
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
發短消息
加為好友
oobird
當前離線
街友一族
UID
17
帖子
1572
主題
16
精華
2
積分
1521
金錢
1521
點名
0
作業系統
xp
軟體版本
office 2003
閱讀權限
150
性別
男
在線時間
832 小時
註冊時間
2010-5-1
最後登錄
2016-1-13
頭銜:
街友一族
超級版主
帖子
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
靜思自在 :
人事的艱難與琢磨,就是一種考驗。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲