合併多個工作表內資料於新增1工作表

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

3^#

發表於 2011-7-5 23:59 | 只看該作者

感謝luhpro的協助，測試符合需求
正在研究您的語法應用於需求中，
但以我的功力與時間，還需要一些時間，若有問題再向您討教
相信一定能功能大增，感恩

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-7-6 08:52 | 只看該作者

簡化一下

Sub Ex()
Dim Sh As Worksheet, i%, iRowEnd%, Ar()
With Sheets("合併")
.Move Sheets(1) '工作表移到最前面
.UsedRange.Offset(1).ClearContents '使用範圍第2列開始清除
For i = 2 To Sheets.Count '工作表索引2開始的迴圈
iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
Ar = Sheets(i).Range("A2:B" & iRowEnd).Value '取得資料
.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Ar), 2) = Ar '置入資料
.Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Ar), 1) = Sheets(i).Name '置入工作表名稱
Next
End With
End Sub

複製代碼

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

5^#

發表於 2011-7-8 00:44 | 只看該作者

差點都忘記回來看看自己的問題，想不到還有其他方式
研究中，GBKEE版大後面還又加註解，對於學習中的我了解應該會快些
放假時研究，有問題再討教，感恩

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

6^#

發表於 2011-7-12 21:03 | 只看該作者

學習中，對於語法懂得不多，煩請 GBKEE版大指導一下
iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
的意義為何?
關於 Ar = Sheets(i).Range("A2:B" & iRowEnd).Value 中的 Range ("A2:B" & iRowEnd)的意思是?
一下子要從基本VBA認知跳到看得懂版大的語法，怎麼"說明"與工具書都失效囉！！

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2011-7-13 09:25 | 只看該作者

本帖最後由 GBKEE 於 2011-7-13 09:28 編輯

回復 6# Happkkevin
iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row的意義為何?
A: iRowEnd =Sheets(i).A65536往上到有資料儲存格的列號
i  ->工作表的索引值
Rows.Count  列的計數(總數) 2003為 65536
End 屬性    傳回 Range 物件，該物件代表包含來源範圍之區域結尾處的儲存格。等於按 END+向上鍵(XlUp)、END+向下鍵(XlDown)、END+向左鍵 (XlToLeft)或 END+向右鍵(XlToRight)。唯讀 Range 物件。
Row ->列號

關於  Ar = Sheets(i).Range("A2:B" & iRowEnd).Value 中的 Range ("A2:B" & iRowEnd)的意思是?
A: 如  iRowEnd=100    Range ("A2:B" & iRowEnd) -> Range ("A2:B100")

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

8^#

發表於 2011-7-15 21:38 | 只看該作者

Dim Ar()
GBKEE 發表於 2011-7-6 08:52

Ar() 為宣告為陣列的縮寫嗎？

Resize(UBound(Ar), 2)
GBKEE 發表於 2011-7-6 08:52

學習 Resize應用，節錄說明檔順道貼上供參考
但其中 UBound(Ar)的含義與用法為何?

Resize 屬性
請參閱請參閱請參閱請參閱調整指定的範圍。傳回 Range 物件，該物件代表調整後的範圍。
expression.Resize(RowSize, ColumnSize)
expression 必選。該運算式傳回要調整大小的 Range 物件。
RowSize 選擇性的 Variant。新範圍中所包含的列數。如果省略此引數，範圍中的列數保持不變。
ColumnSize 選擇性的 Variant。新範圍中所包含的欄數。如果省略此引數，範圍中的欄數保持不變。
範例
此範例調整 Sheet1 中選擇範圍的大小，使之增加一列和一欄。
Worksheets("Sheet1").Activate
numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 1, numColumns + 1).Select
此範例假設在 Sheet1 中有一個包含標題列的表格。此範例選定該表格，但不選定標題列。執行此範例之前，現用儲存格必須處於該表格中。
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
tbl.Columns.Count).Select

複製代碼

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-7-16 07:38 | 只看該作者

回復 8# Happkkevin
UBound 函數傳回 Long值，表示指定陣列某維最大可使用的陣列索引。
Dim A(1 To 100, 0 To 3, -3 To 4)
陳述式傳回值
UBound(A, 1) -> UBound(A) -> 100
UBound(A, 2) ->3
UBound(A, 3) ->4