如何将工作簿中的所有工作表合并为一个 - Excel 2013

Question

是否可以自动将工作簿中的所有工作表转换为新工作表？

我将一个 PDF 文件（29 页）转换为 excel 它是成功完成的，但我得到了 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