標題:
將多個sheet的資料合併到第一個sheet中
[打印本頁]
作者:
sky00264
時間:
2012-11-27 00:15
標題:
將多個sheet的資料合併到第一個sheet中
各位大大~
不好意思~我還有個問題想發問~
資料如下圖~
那有多個sheet(200頁以上)
因為每個sheet的格式跟欄位數都一樣~
那有沒有巨集是能夠把全部的sheet合併到第一個sheet中呢?
就是接在第一個sheet中資料的下面，一直接連下去..
感謝各位大大
[attach]13295[/attach][attach]13296[/attach]
作者:
Hsieh
時間:
2012-11-27 22:15
回復
1#
sky00264
每頁最大資料量在I欄
試試
Sub ex()
For i = 2 To Sheets.Count
Sheets(i).UsedRange.Copy Sheets(1).Cells(Rows.Count, "I").End(xlUp).Offset(1, -8)
Next
End Sub
複製代碼
作者:
sky00264
時間:
2012-11-29 23:58
謝謝大大~晚點試試~
不過我不太懂
Sheets(i).UsedRange.Copy Sheets(1).Cells(Rows.Count, "I").End(xlUp).Offset(1, -8)
這句程式碼的意思...
作者:
stillfish00
時間:
2012-11-30 00:20
本帖最後由 stillfish00 於 2012-11-30 00:22 編輯
回復
3#
sky00264
Sheets(i).
UsedRange
.Copy
Sheets(1).
Cells(Rows.Count, "I")
.End(xlUp)
.Offset(1, -8)
Sheets(i)
所有有使用到的範圍
複製到
=> Sheets(1)
"I"欄最後一列(工作表最大列數)
往上找到非空白儲存格
再向下一格向左八格的位置
提醒下次記得用回復 , 對方才會收到訊息
作者:
198188
時間:
2012-12-1 20:46
回復
2#
Hsieh
請問如果不是在同一個excel內呢？
例如有四個excel 名如下
a.xlsx worksheet 名 “1”
b.xlsx worksheet 名 “2”
c.xlsx worksheet 名 “3”
d.xlsx worksheet 名 “4”
要將這四個不同excel名的四個不同worksheet名複製到
e.xlsx worksheet 名 “5”
內容如版主一樣只是分不同的excel 名和不同worksheet名
作者:
sky00264
時間:
2013-3-12 16:21
回復
4#
stillfish00
感謝大大的解說~
講的很清楚~
也謝謝Hsieh大大~
經測試後確實可以使用~
節省了很多時間^^
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
