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

方法一：使用分列功能

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

2. 點(diǎn)擊“數(shù)據(jù)”選項(xiàng)卡。

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

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

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

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

7. 點(diǎn)擊“完成”。

方法二：使用透視表

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

2. 點(diǎn)擊“插入”選項(xiàng)卡。

3. 在“表格”組中，點(diǎn)擊“透視表”。

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

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

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

方法三：使用宏

1. 打開(kāi)Excel，按下 `Alt + F11` 打開(kāi)VBA編輯器。

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

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è)置標(biāo)題行

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ù)制標(biāo)題行

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”，然后點(diǎn)擊“運(yùn)行”。

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