依條件複製不同工作表資料並統計不重複次數 - Excel程式區

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

12^# 跳轉到 »

發表於 2020-12-16 10:54 | 只看該作者

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

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

11^#

發表於 2020-12-16 09:50 | 只看該作者

回復 10# 准提部林
Dear 前輩！非常感謝
如於執行前判斷NL或SL工作表是否存在？不存在則結束執行，如下如何更改。謝謝！
Dim ws As Worksheet
Dim sName As String
sName = "NL"
On Error Resume Next
Set ws = Sheets(sName)
If ws Is Nothing Then
MsgBox "NL or SL工作表不存在結束執行"
Exit Sub
End If

100 字節以內
不支持自定義 Discuz! 代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

10^#

發表於 2020-12-12 11:46 | 只看該作者

回復 9# b9208

參考檔:

Xl0000396-1.rar (29.95 KB)

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

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

9^#

發表於 2020-12-11 16:57 | 只看該作者

回復 8# 准提部林
准大
非常感謝
依據總表結果，增加統計程式。執行符合需求。
功力不足，無法合併成一個程式執行。

T3.zip (42.69 KB)

100 字節以內
不支持自定義 Discuz! 代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

8^#

發表於 2020-12-11 11:18 | 只看該作者

回復 7# b9208

先做總表:

Xl0000126-1.rar (22.28 KB)

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

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

7^#

發表於 2020-12-10 20:23 | 只看該作者

回復 6# 准提部林
准大
增加條件或許加在「總表」比較適當（如下紅字）
需求說明：「總表」工作表
一、依據「總表」A欄「篩選部門」條件，比對NL及SL工作表〞部門〞欄位，相同則複製資料列至「總表」。
二、「日期 & 部門 & 名稱 & 料號（前7碼）」相同者，只選擇「數量」最大值者複製乙筆資料列，其他資料列捨棄不複製。
三、依據「日期」及「名稱」排序

T2-1.rar (37.59 KB)

100 字節以內
不支持自定義 Discuz! 代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

6^#

發表於 2020-12-10 16:12 | 只看該作者

回復 5# b9208

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

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

5^#

發表於 2020-12-9 13:13 | 只看該作者

回復 4# 准提部林
前輩
非常抱歉，漏了很重要一個條件。
重要條件：「日期 & 部門 & 名稱 & 料號（前7碼）」等相同列，只計數1次。（詳附件）

另請教程式碼 If Arr(i, 1) <> "" Then xD(Arr(i, 1) & "//a") = 1，中之「"//a"」的作用？
非常感謝

T2.zip (34.54 KB)

100 字節以內
不支持自定義 Discuz! 代碼

TOP

准提部林