g93353

帖子: 40
主題: 17
精華: 0
積分: 62
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-27
最後登錄: 2014-11-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-6-15 15:00 | 只看該作者

[發問] 資料重複但只顯示出一次

如標題

小弟想請問一下
若儲存格人名有重複　如何只顯示一次而不會重複加總呢
請教各位大大了＞”＜
　　Ａ
１　Gary　　
２ Gary
３ LILY
４ JOHN
５ MOLLY
６ MOLLY
７ JAM
８　共５人（不是７人）

樓主熱帖

WOW

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-6-15 15:20 | 只看該作者

回復 1# g93353

Sub XX()
Set d = CreateObject("scripting.dictionary")
For Each A In Range([A1], [A1].End(xlDown))
d(A.Value) = ""
Next
Cells(1, "B").Resize(d.Count, 1) = Application.Transpose(d.keys)
Cells(1 + d.Count, "B") = "共" & d.Count & "人"
End Sub

複製代碼

TOP

g93353

中學生 Rank: 2

帖子: 40
主題: 17
精華: 0
積分: 62
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-27
最後登錄: 2014-11-18

3^#

發表於 2012-6-15 15:50 | 只看該作者

謝謝　register313　大大的回答
想請問一下（SORRY剛剛沒提到）　
若Range的範圍不是到.End(xlDown)　（到總數的前一格）
ＥＸ：
　　Ａ
１　Gary　　
２ Gary
３ LILY
４ JOHN
５ MOLLY
６ MOLLY
７ JAM
８　共５人（不是７人）
９　總數

若用您的方法　如果都沒有人的話　好像也會顯示１人
不知道ＲＡＮＧＥ的設定要怎麼更改　或是有別得方法呢＞”＜

WOW

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-6-15 16:19 | 只看該作者

回復 3# g93353

Sub YY()
Set d = CreateObject("scripting.dictionary")
n = Application.Match("總數", Columns("A"), 0)
For Each A In Range("A1:A" & n - 2)
If A.Value <> "" Then d(A.Value) = ""
Next
If d.Count <> 0 Then Cells(1, "B").Resize(d.Count, 1) = Application.Transpose(d.keys)
Cells(n - 1, "A") = "共" & d.Count & "人"
Cells(1 + d.Count, "B") = "共" & d.Count & "人"
End Sub

複製代碼

TOP

g93353

中學生 Rank: 2

帖子: 40
主題: 17
精華: 0
積分: 62
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-27
最後登錄: 2014-11-18

5^#

發表於 2012-6-15 16:48 | 只看該作者

感謝　register313　大大
可以請問一下
Cells(1, "B").Resize(d.Count, 1) = Application.Transpose(d.keys)
這行所表示的意思嗎？？

WOW

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-6-15 16:58 | 只看該作者

回復 5# g93353

Cells(1, "B").Resize(d.Count, 1) = Application.Transpose(d.keys)

d.Count                                        字典內關鍵字的數目(數字)
d.keys                                        字典內的關鍵字(橫向陣列)
Cells(1, "B")=Range("A1")=[A1]    儲存格A1
Cells(1, "B").Resize(d.Count, 1)    將儲存格A1之範圍擴大為d.Count列1欄
Application.Transpose(d.keys)       將字典內的關鍵字(橫向陣列)轉置為直向陣列

TOP

GBKEE