EXCEL大量工作表合併成一個表,又不會用巨集怎麼辦?用記事本吧,簡單易行
工具/原料
記事本 excel
方法/步驟
先開啟要合併的EXCEL表
開啟記事本,輸入以下內容:
Set book = GetObject(, "Excel.Application").ActiveWorkbook
For i = 2 To book.Sheets.Count
book.Worksheets(i).UsedRange.Copy book.Worksheets(1).Cells(book.Worksheets(1).UsedRange.Rows.Count + 1, 1)
Next
msgbox "ok!"
另存為 合併.vbs
執行這個檔案
檢視合併後的excel檔案
通過簡單賽選等操作,可以去掉重複表頭
注意事項
要處理的表應該是當前活動表