返回列表 上一主題 發帖

[發問] 依條件複製不同工作表資料並統計不重複次數

參考檔
Xl0000117.rar (19.72 KB)

四段分開寫, 意思差不多, 自行研究下~~

TOP

回復 3# b9208

Xl0000117-1.rar (21.23 KB)
   
統計表的格式(標題行), 與所述條件不一致~~
自行參酌程式修改

TOP

回復 5# b9208


__還是看不懂統計表的規則__
「日期 & 部門 & 名稱 & 料號(前7碼)」等相同列,只計數1次。
一、依據「名稱」統計,輸出於A表。
二、依據「地區」統計,輸出於B表。
二、依據「部門」統計,輸出於C表。

TOP

回復 7# b9208


先做總表:
Xl0000126-1.rar (22.28 KB)

統計表自行先摹擬結果, 看不懂~~

TOP

回復 9# b9208

參考檔:
Xl0000396-1.rar (29.95 KB)

統計做兩個, 懂哪個就用哪個

TOP

回復 11# b9208

For Each S In Array("NL", "SL")
    On Error Resume Next
    If Sheets(S & "") Is Nothing Then
       MsgBox "工作表:〔" & S & "〕不存在! ": Exit Sub
    End If
    On Error GoTo 0
Next

TOP

回復 13# b9208


附檔:
T18-01.rar (56.23 KB)

TOP

回復 15# b9208


  Set xB = Workbooks.Open(PH & "\" & FN, ReadOnly:=True)
   Set xS = xB.Sheets(1)
   If DateStr = "" Then DateStr = xS.[A2]
   Arr = Range(xS.[A1:O1], xS.UsedRange)


If M > 0 Then
   [總表!b2] = DateStr

end if

插入紅色字那二行~~

TOP

        靜思自在 : 手心向下是助人,手心向上是求人;助人快樂,求人痛苦。
返回列表 上一主題