excel - ブック内のすべてのシートを 1 つにまとめる方法 - Excel 2013

Question

ワークブック内のすべてのシートを新しいシートに自動的に取得することは可能ですか?

PDFファイル(29ページ)をエクセルに変換したら成功したのですが、1ページが1シート(合計29シート)になりました。

これらすべてのシートをシートに結合するオプションはExcelにありますか。

Answer 1

そのワークブックの簡単なマクロを書くことでそれを行うことができます

マクロの書き方紹介。

http://office.microsoft.com/en-in/excel-help/introduction-to-custom-macros-in-excel-HA001118958.aspx

Dim offsetRow As Integer

---

Sub Button1_Click()
Dim lastrow As Integer
Dim s As Integer
Dim ws As Worksheet
Dim tmpws As Worksheet
offsetRow = 3
lastrow = 1
 ThisWorkbook.Worksheets.Add
 s = ThisWorkbook.ActiveSheet.Index
For i = 2 To ThisWorkbook.Worksheets.Count
    ThisWorkbook.Worksheets(i).Select
    ThisWorkbook.Worksheets(i).UsedRange.Copy
    ThisWorkbook.Worksheets(s).Select
    ThisWorkbook.Worksheets(s).Cells(lastrow, 1).Select
    lastrow = lastrow + ThisWorkbook.Worksheets(i).UsedRange.Rows.Count + offsetRow
    ThisWorkbook.Worksheets(s).Paste
    ThisWorkbook.Worksheets(i).Select
    'ThisWorkbook.Application.SendKeys ("{ESC}")
Next i
ThisWorkbook.Worksheets(s).Select
End Sub