返回列表 上一主題 發帖

請問如何將多工作表的表格資料匯總在一張工作表

請問如何將多工作表的表格資料匯總在一張工作表

本帖最後由 gaishutsusuru 於 2019-6-1 12:40 編輯

圖1
1.PNG
2019-6-1 12:13



圖2
2.PNG
2019-6-1 12:14



請問如何將所有工作表內圖1的資料,匯總在同一張工作表(圖2)?
1. 圖1的資料會有31日,但因為簡化,所以只放6日
2. 在圖2的線別,會依照工作表名稱(例:1-1,1-2…)來填寫
3. 工作表名稱代表線別:1-1,1-2,…。因為簡化,所以目前只放2個。但希望能讀取所有的。

活頁簿1.zip (9.47 KB)
想請問大家如何達成圖2的結果呢? 一般的公式有辦法嗎? 還是有VBA的方式呢?

拜託大家協助,感謝。

Sub TEST()
Dim Sht As Worksheet, UR As Range, xR As Range, i%, c&, r&, N&, ARR
ReDim ARR(1 To 30000, 1 To 6)
Sheets("工作表2").UsedRange.Offset(1, 0).EntireRow.Delete
For Each Sht In Sheets
    If Sht.Name Like "#-#" = False Then GoTo 101
    Set UR = Sht.UsedRange
    For r = 1 To UR.Rows.Count Step 5
    For c = 1 To UR.Columns.Count Step 3
        Set xR = UR(r + 1, c)
        If Application.Sum(xR(2, 3).Resize(3)) = 0 Then GoTo 99
        N = N + 1
        ARR(N, 1) = "'" & Sht.Name: ARR(N, 2) = xR(2): ARR(N, 3) = xR(0)
        For i = 1 To 3
            ARR(N, 3 + i) = xR(i + 1, 3)
        Next
99: Next c
    Next r
101: Next
[工作表2!A2:F2].Resize(N) = ARR
End Sub

Xl0000341.rar (13.95 KB)

====================
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 2# 准提部林

非常感謝您的協助。

但有另一件事想請教您。不知道您方不方便稍微說明一下您寫的VBA是怎麼運作的。

因為如果之後表格有改動,自己想試著操作看看。

不好意思,如果您方便的話,再麻煩您了,謝謝。

TOP

回復 3# gaishutsusuru

1) 每3欄+每5行 為一個區塊
2) "標題行"在每一區塊的第2行, 以 xR 定位[型號]這一儲存格
3) xR右第3欄下的3個儲存格, 為三個尺寸的[數量], 若數量加總為0, 表示無記錄, 略過
4) 取xR上一格為[?日], xR下一格為[型號內容], 填入Arr相應位置
5) 最後以N為行數, 填入總表

=========================
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 4# 准提部林


您好,謝謝您的詳細解說,非常容易理解。

謝謝您。

TOP

回復 4# 准提部林


  准提部林大大您好,

不好意思,再次打擾了。

在程式碼中,「If Sht.Name Like "#-#" = False Then GoTo 101」,表示所有的#-#名稱的工作表都會被讀取。

但我剛剛發現工作表中有的是#-#-#的名稱。所以如果要同時都可以讀取"#-#" 和"#-#-#"名稱的工作表,請問要如何更改呢?

我上網查資料: If Sht.Name Like "#-#" And Sht.Name Like "#-#-#"= False Then GoTo 101。但卻不能同時讀取這2種名稱的工作表。


再拜託您協助提供一些想法,感謝您。

TOP

回復 6# gaishutsusuru


If (Sht.Name Like "#-#") + (Sht.Name Like "#-#-#") = 0 Then GoTo 101

"#-#"  表示1位數的串接, 如:5-6,  若為5-16即為不符合,
亦即一個"#"為一個數字. "####" 就是指"0000"~"9999"的範圍,

"*#-#*" , 只要中間是1位數串接的都符合, "*"可以是任意長度的字元(數字或中英文或符號)
"??-??" , 則是"-"的前後限定只能有2個長度的任意字元
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 7# 准提部林


謝謝您再次詳細的解說,謝謝

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題