返回列表 上一主題 發帖

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

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

依據「總表」A欄條件,比對NL及SL工作表內〞部門〞欄位,相同則複製資料列至「總表」,並依條件統計不重複列次數輸出至「統計」工作表。
敬請各位前輩指導
非常感謝

T1.zip (158.41 KB)
100 字節以內
不支持自定義 Discuz! 代碼

回復 2# 准提部林
非常感謝幫忙與指導
執行後下列二項問題:
一、        總表未依「日期」與「名稱」排序
二、        統計之計數需要排除條件相同的重復列(本項懇請幫忙)
再次感謝
100 字節以內
不支持自定義 Discuz! 代碼

TOP

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

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

T2.zip (34.54 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 6# 准提部林
准大
增加條件或許加在「總表」比較適當(如下紅字)
需求說明:「總表」工作表
一、依據「總表」A欄「篩選部門」條件,比對NL及SL工作表〞部門〞欄位,相同則複製資料列至「總表」。
二、「日期 & 部門 & 名稱 & 料號(前7碼)」相同者,只選擇「數量」最大值者複製乙筆資料列,其他資料列捨棄不複製
三、依據「日期」及「名稱」排序
   T2-1.rar (37.59 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

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

T3.zip (42.69 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

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

回復 12# 准提部林
Dear 准大
非常感謝
如將所有資料移動複製到主檔,主檔檔案會變很大(約30多MB)。
請問可以不用將資料移到主檔,就可以依篩選條件複製資料到主檔嗎?
主檔名稱:TOTAL
資料檔名稱:Data1, 2, 3…….(工作表名稱:LIST)
以上檔案同一資料夾
謝謝
T18.rar (44.26 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 14# 准提部林

准大您好
請教想要於「TOTAL 總表」B2儲存格值複製其他EXCEL檔內A2的值(其他檔案內A2值都是相同的),如何修訂巨集?
懇請指導
謝謝!
20210206.rar (59.08 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 16# 准提部林

准大
非常感謝
100 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題