返回列表 上一主題 發帖

[發問] 多條件統計

[發問] 多條件統計

您好!
請問多條件統計次數
由「資料」工作表統計每日(B欄)各人口(H欄)使用次數,並輸出於「工作表2」。
謝謝
W1.zip (19.49 KB)
100 字節以內
不支持自定義 Discuz! 代碼

回復 1# b9208


C7=COUNTIFS(資料!$B:$B,工作表2!$B$7,資料!$H:$H,工作表2!C6)右拉
C8=COUNTIFS(資料!$B:$B,工作表2!$B$8,資料!$H:$H,工作表2!C6)右拉

TOP

回復 2# jcchiang
非常感謝指導
但需統計至少一年以上資料,如用EXCEL函數方法,運算時間太久。
所以請教利用VBA方式運算
100 字節以內
不支持自定義 Discuz! 代碼

TOP

第6行的 N1~N4, S1~S5 是固定不變的???

TOP

回復 4# 准提部林
固定不變
謝謝
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 3# b9208

試試看
    Sub ex()
Dim arr
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
arr = Sheets("資料").[B5].CurrentRegion
For i = 2 To UBound(arr)
   If Not d.Exists(arr(i, 2) & arr(i, 8)) Then
      d.Add (arr(i, 2) & arr(i, 8)), 1
   Else
      d(arr(i, 2) & arr(i, 8)) = d(arr(i, 2) & arr(i, 8)) + 1
   End If
Next
With Sheets(1)
arr = .[B6].CurrentRegion
For i = 2 To UBound(arr, 2) - 1
   For j = 2 To UBound(arr)
      If d(arr(j, 1) & arr(1, i)) = "" Then
         arr(j, i) = 0
      Else
         arr(j, i) = d(arr(j, 1) & arr(1, i))
      End If
   Next
Next
.[B6].CurrentRegion = arr
.[L7].Resize(UBound(arr) - 1) = "=sum(c7:K7)"
.[L:L] = .[L:L].Value
End With
Set d = Nothing
End Sub

TOP

回復 6# jcchiang
非常感謝協助與指導
程式執行OK
但「工作表2」之日期,是依據「資料」內日期輸出不重復日期,並非事先輸入的。
100 字節以內
不支持自定義 Discuz! 代碼

TOP

Sub TEST()
Dim Arr, Brr, xD, i&, j%, K, R&, C&, N&
Set xD = CreateObject("Scripting.Dictionary")
[工作表2!B7:B2000].EntireRow.Delete
Arr = [工作表2!B6:K6]
For j = 2 To UBound(Arr, 2): xD(Arr(1, j)) = j: Next
Arr = Range([資料!A1], Sheets("資料").UsedRange)
ReDim Brr(1 To UBound(Arr), 1 To 11)
For i = 5 To UBound(Arr)
    K = Arr(i, 2): R = Val(xD(K)): C = Val(xD(Arr(i, 8)))
    If K = "" Or C = 0 Then GoTo 101
    If R = 0 Then N = N + 1: R = N: xD(K) = N: Brr(N, 1) = K
    Brr(R, C) = Brr(R, C) + 1: Brr(R, 11) = Brr(R, 11) + 1
101: Next i
With [工作表2!B7].Resize(N, 11)
     .Value = Brr
     .Borders.LineStyle = 1
End With
End Sub

Xl0000221.rar (21.58 KB)


=====================

TOP

回復 8# 准提部林

程式執行OK
符合期望
非常感謝您
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 8# 准提部林
版主 您好
參考版主之程式碼,於另工作表(Outq) 統計出口是OK的。
嚐試於工作表2同時輸出入口及出口統計表,程式執行錯誤,懇請版主指導。
非常感謝
W2.rar (65.42 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
返回列表 上一主題