帖子: 14
主題: 8
精華: 0
積分: 22
點名: 0
作業系統: Window
軟體版本: Office 2003
閱讀權限: 10
性別: 女
註冊時間: 2010-12-12
最後登錄: 2011-11-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-29 10:30 | 只看該作者

找出指定人數

我想找出指定職級, 但修讀過一種或另一種課程的人有多少人數 ? 應如何呢 ?thx !!!!
附上附件 !!!

excel_找出人數.rar (4.03 KB)

樓主熱帖

trainee

中學生 Rank: 2

帖子: 92
主題: 12
精華: 0
積分: 217
點名: 247
作業系統: Window XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

2^#

發表於 2011-1-29 11:10 | 只看該作者

本帖最後由 trainee 於 2011-1-29 11:15 編輯

試吓將佢哋加埋！

SUMPRODUCT((A2:A52="一級文員")*(C2:C52="中文課程")) + SUMPRODUCT((A2:A52="一級文員")*(C2:C52="英文課程"))

TOP

yan870510

小學生 Rank: 1

帖子: 14
主題: 8
精華: 0
積分: 22
點名: 0
作業系統: Window
軟體版本: Office 2003
閱讀權限: 10
性別: 女
註冊時間: 2010-12-12
最後登錄: 2011-11-10

3^#

發表於 2011-1-29 22:30 | 只看該作者

但係加埋的話只能計出修讀該兩個課程的總數, 不能計出人數 ( 因為有一些人是同時讀了中及英文課程), 如何能計出人數呢 ?

TOP

handmuch

　暱稱: expresmile

中學生 Rank: 2

帖子: 43
主題: 1
精華: 0
積分: 74
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-17
最後登錄: 2020-8-24

4^#

發表於 2011-1-30 00:24 | 只看該作者

回復 3# yan870510

也就是說"名字不能重複"，那麼用篩選或進階篩選完後，2007有一個"移除重複"--移除重複名字後，再算個數，這樣應該也行得通吧。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-1-30 10:05 | 只看該作者

回復 3# yan870510

進階篩選出全部名單
用陣列公試算出不重複數量

學海無涯_不恥下問

TOP

trainee

中學生 Rank: 2

帖子: 92
主題: 12
精華: 0
積分: 217
點名: 247
作業系統: Window XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

6^#

發表於 2011-1-30 10:11 | 只看該作者

會否考慮改變編輯模式，若不縑麻煩，請參閱附圖！

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

7^#

發表於 2023-5-12 13:54 | 只看該作者

本帖最後由 Andy2483 於 2023-5-12 14:20 編輯

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Crr, Y, N&, i&, j&
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是字典
Brr = Range([C1], Cells(Rows.Count, 1).End(3))
'↑令Brr變數是二維陣列,以A~C欄儲存格資料帶入陣列裡
ReDim Crr(1 To UBound(Brr), 1 To 3)
'↑宣告Crr是二維空陣列,縱向範圍同Brr陣列,橫向從1~3
For i = 1 To UBound(Brr)
'↑設順迴圈
If i = 1 Then N = 1: For j = 1 To 3: Crr(N, j) = Brr(i, j): Next
'↑處理標題列
If Brr(i, 1) = "一級文員" And InStr("/中文課程/英文課程/", "/" & Brr(i, 3) & "/") Then
'↑如果符合條件
   If Y(Brr(i, 2) & "") = "" Then
   '↑如果姓名不重複
      N = N + 1
      For j = 1 To 3: Crr(N, j) = Brr(i, j): Next
      '↑符合條件又不重複的資料寫入Crr陣列裡
      Y(Brr(i, 2) & "") = 1
       '↑令此字典裡此key的item值是 1(讓後迴圈濾重複)
   End If
End If
Next
[E12].Resize(N, 3) = Crr
'↑令Crr陣列值從[E12]寫入儲存格裡
Set Y = Nothing: Erase Brr, Crr
'↑令釋放變數
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1796
主題: 184
精華: 0
積分: 1985
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-9-24

熱烈參與勳章

8^#

發表於 2023-5-12 14:22 | 只看該作者

=SUM(COUNTIFS(A:A,"一級文員",C:C,{"英文課程","中文課程"}))

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP