帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-6-1 12:35 | 只看該作者

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

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

圖1

圖2

請問如何將所有工作表內圖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的方式呢?

拜託大家協助，感謝。

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2019-6-2 11:26 | 只看該作者

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)

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

TOP

gaishutsusuru

中學生 Rank: 2

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

3^#

發表於 2019-6-2 16:08 | 只看該作者

回復 2# 准提部林

非常感謝您的協助。

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

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

4^#

發表於 2019-6-3 13:25 | 只看該作者

回復 3# gaishutsusuru

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

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

TOP

gaishutsusuru

中學生 Rank: 2

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

5^#

發表於 2019-6-4 15:37 | 只看該作者

回復 4# 准提部林

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

謝謝您。

TOP

gaishutsusuru

中學生 Rank: 2

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

6^#

發表於 2019-6-8 00:07 | 只看該作者

回復 4# 准提部林

准提部林大大您好，

不好意思，再次打擾了。

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

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

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 2019-6-8 09:21 | 只看該作者

回復 6# gaishutsusuru

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

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

"*#-#*" , 只要中間是1位數串接的都符合, "*"可以是任意長度的字元(數字或中英文或符號)
"??-??" , 則是"-"的前後限定只能有2個長度的任意字元

TOP

gaishutsusuru

中學生 Rank: 2

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

8^#

發表於 2019-6-9 11:49 | 只看該作者

回復 7# 准提部林

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

TOP