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

方法一：使用分列功能

1. 選中包含數據的表格區域。

2. 點擊“數據”選項卡。

3. 在“數據工具”組中，點擊“分列”。

4. 在彈出的“文本分列向導”中，選擇“分隔符號”。

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

6. 點擊“下一步”，然后根據需要設置數據格式。

7. 點擊“完成”。

方法二：使用透視表

1. 選中包含數據的表格區域。

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

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

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

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

6. 根據需要調整字段位置。

方法三：使用宏

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

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

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

```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

' 設置分隔符

delimiter = ","

' 設置工作表

Set ws = ActiveSheet

' 獲取最后一行

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

' 設置標題行

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

' 循環創建新工作表

For i = 2 To lastRow

' 創建新工作表

Set newSheet = Worksheets.Add

newSheet.Name = "Sheet" & i

' 復制標題行

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

' 復制數據

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. 關閉VBA編輯器，回到Excel界面。

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

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