返回列表 上一主題 發帖

[發問] 請問countifs多條件,如何用VBA呢?會跑到盪掉

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-8-7 23:55 | 只看該作者

[發問] 請問countifs多條件,如何用VBA呢?會跑到盪掉

函數:=COUNTIFS($A$3:$A$16,"<>*T*",$A$3:$A$16,"<>*Q*",$A$3:$A$16,"<>*I*",$A$3:$A$16,"<>*P*",$A$3:$A$16,"<>*L*",$B$3:$B$16,F2,$C$3:$C$16,"=2")
多重指定條件 統計個數.rar (10.26 KB)
收藏 分享

Scott090

帖子
519 
主題
54 
精華
0 
積分
595 
點名
257  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
2#
發表於 2015-8-9 10:37 | 只看該作者
回復 1# starry1314


    資料多，試用這個
  1. Option Base 1
  2. Option Explicit

  4. Sub 菜色計算()
  5.     Dim i&, j%, k%
  6.     Dim aa  '區域、菜色、數量 資料
  7.     Dim bb  ''菜色
  8.     Dim cc$  '區分條件
  9.     Dim dd  '搜尋結果
  10.         
  11.     Sheets("工作表1").Activate
  12.     aa = Range("A3:C" & [A2].End(xlDown).Row)
  13.     bb = Range("F2:F" & [F2].End(xlDown).Row)
  14.     Range("G2:G" & UBound(bb) + 1).Clear    '第2列開始菜色區分
  15.    
  16.     ReDim dd(UBound(bb), 1)
  17.     cc = "TQILP"
  18.    
  19.     For i = 1 To UBound(aa)
  20.         If InStr(cc, Mid(aa(i, 1), 2, 1)) = 0 And aa(i, 3) = 2 Then
  21.             For j = 1 To UBound(bb)
  22.                 If aa(i, 2) = bb(j, 1) Then dd(j, 1) = dd(j, 1) + 1: Exit For
  23.             Next
  24.         End If
  25.     Next i
  26.     Cells(2, "G").Resize(UBound(dd)) = dd
  27.    
  28. End Sub
複製代碼

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題