在Excel中，將一個表格自動拆分為多個單表格可以通過以下幾種方法實現(xiàn)：

方法一：使用分列功能

1. 選中包含數(shù)據(jù)的表格區(qū)域。

2. 點擊“數(shù)據(jù)”選項卡。

3. 在“數(shù)據(jù)工具”組中，點擊“分列”。

4. 在彈出的“文本分列向?qū)А敝?，選擇“分隔符號”。

5. 在“分隔符號”下拉列表中選擇“其他”，然后輸入分隔符（如逗號、分號等）。

6. 點擊“下一步”，然后根據(jù)需要設(shè)置數(shù)據(jù)格式。

7. 點擊“完成”。

方法二：使用透視表

1. 選中包含數(shù)據(jù)的表格區(qū)域。

2. 點擊“插入”選項卡。

3. 在“表格”組中，點擊“透視表”。

4. 在彈出的“創(chuàng)建透視表”對話框中，選擇放置透視表的位置。

5. 在透視表字段列表中，將需要的字段拖到行標簽、列標簽或值區(qū)域。

6. 根據(jù)需要調(diào)整字段位置。

方法三：使用宏

1. 打開Excel，按下 `Alt + F11` 打開VBA編輯器。

2. 在VBA編輯器中，插入一個新的模塊。

3. 在模塊中，復(fù)制并粘貼以下宏代碼：

```vba

Sub SplitTable()

Dim ws As Worksheet

Dim lastRow As Long, i As Long

Dim headerRow As Range, cell As Range

Dim newSheet As Worksheet

Dim delimiter As String

' 設(shè)置分隔符

delimiter = ","

' 設(shè)置工作表

Set ws = ActiveSheet

' 獲取最后一行

lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' 設(shè)置標題行

Set headerRow = ws.Range("A1:" & ws.Cells(1, ws.Columns.Count).End(xlToLeft).Address)

' 循環(huán)創(chuàng)建新工作表

For i = 2 To lastRow

' 創(chuàng)建新工作表

Set newSheet = Worksheets.Add

newSheet.Name = "Sheet" & i

' 復(fù)制標題行

headerRow.Copy Destination:=newSheet.Range("A1")

' 復(fù)制數(shù)據(jù)

For Each cell In ws.Range(headerRow.Offset(i 2, 0), ws.Cells(i 2, ws.Columns.Count).End(xlToLeft))

cell.Copy Destination:=newSheet.Range("A" & i)

Next cell

Next i

End Sub

```

4. 關(guān)閉VBA編輯器，回到Excel界面。

5. 按下 `Alt + F8`，選擇“SplitTable”，然后點擊“運行”。

以上方法可以幫助您將Excel表格自動拆分為多個單表格。根據(jù)您的具體需求，您可以選擇適合的方法進行操作。