[發問] 多條件統計

b9208

您好！
請問多條件統計次數
由「資料」工作表統計每日（B欄）各人口（H欄）使用次數，並輸出於「工作表2」。
謝謝
W1.zip (19.49 KB)

下載次數: 20

2020-8-20 16:11

jcchiang

回復 1# b9208


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

b9208

回復 2# jcchiang
非常感謝指導
但需統計至少一年以上資料，如用EXCEL函數方法，運算時間太久。
所以請教利用VBA方式運算

准提部林

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

b9208

回復 4# 准提部林
固定不變
謝謝

jcchiang

回復 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

b9208

回復 6# jcchiang
非常感謝協助與指導
程式執行OK
但「工作表2」之日期，是依據「資料」內日期輸出不重復日期，並非事先輸入的。

准提部林

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)

下載次數: 13

2020-8-21 12:47

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

b9208

回復 8# 准提部林

程式執行OK
符合期望
非常感謝您

b9208

回復 8# 准提部林
版主 您好
參考版主之程式碼，於另工作表(Outq) 統計出口是OK的。
嚐試於工作表2同時輸出入口及出口統計表，程式執行錯誤，懇請版主指導。
非常感謝
W2.rar (65.42 KB)

下載次數: 5

2020-8-21 21:06