excel macro 禁一個制將不同sheet的row copy 落同一張sheet

一定有人識做, 但發問不嚴謹, 個button放在那一個sheet, 100張的Sheet名是什麼,名稱是否有數字順序, 如sheet1, sheet2, 或data1, data2, 每張sheet的第一個row的位置是否相同, 是否有些sheet是不需copy, ........, 當然閣下的EXCEL知識及VBA程度是最關鍵

2008-11-01 00:10:07 補充：
在本工作表上, 開一張sheet, 在此sheet上做一個Button, 指定巨集(macro)選以下的巨集
Sub Macro1()
x = ActiveWorkbook.Name
sht = ActiveSheet.Name
Workbooks.Add
y = ActiveWorkbook.Name
Windows(x).Activate
For Each bk In ThisWorkbook.Worksheets
bk.Select
If bk.Name <> sht Then
r = [a65536].End(xlUp).Row
Rows("2:" & r).Copy
Windows(y).Activate
rr = IIf(rr = 0, 2, [a65536].End(xlUp).Row + 1)
Cells(rr, 1).Select
ActiveSheet.Paste
Windows(x).Activate
End If
Next
Application.CutCopyMode = False
Windows(y).Activate
End Sub
執行結果是:
本工作簿(workbook), 除了做button的sheet外, 其他所有的 sheets 由第二行開始的所有內容, 都會複製到一個新工作簿的Sheet1上。
以上巨集, 會判斷本工作簿有多少張sheets, 及每張sheet有多少行, 每張sheet是無需相同行數, 多少行都可以
希望你能引用, 祝君好運

放在新worksheet 1度
一百張sheeet都只有sheet1有data
第一個row位置一樣
每張都要copy