excel将一个工作表根据条件拆分成多个sheet工作表与合并多...

在Excel中，我们可以使用宏来根据条件拆分一个工作表成多个sheet，并且也可以使用宏来合并多个sheet成一个工作表。下面是一个拆分和合并的示例：

首先，假设我们有一个工作表，其中包含了销售数据：

| 日期 | 产品 | 数量 | 销售额 |

|:-------:|:---:|:---:|:-----:|

| 1/1/20 | A | 5 | 100 |

| 1/1/20 | B | 3 | 50 |

| 1/2/20 | A | 2 | 40 |

| 1/2/20 | B | 4 | 80 |

| 1/3/20 | A | 1 | 20 |

| 1/3/20 | B | 3 | 60 |

现在我们要根据产品来拆分成多个工作表，每个工作表对应一个产品，然后存储到同一个Excel文件中。

首先，我们需要打开一个新的工作表（Sheet2），并在第一行设置好标题行（与源工作表保持一致）。

然后，我们需要在第一列设置好产品列表。假设产品列表放在第一列的B2到B3单元格内。

现在，我们可以编写一个宏来进行拆分操作。按下ALT+F11打开VBA编辑器，在左侧的项目窗格中双击Sheet1（源工作表）。

在代码窗口中添加以下代码：

```vba

Sub SplitData()

Dim ws As Worksheet

Dim rng As Range

Dim cell As Range

Dim product As String

Set ws = ThisWorkbook.Sheets("Sheet2") ' 修改为目标工作表的名称

' 遍历产品列表

With ThisWorkbook.Sheets("Sheet1") ' 修改为源工作表的名称

Set rng = .Range("B2:B3") ' 修改为产品列表的单元格范围

For Each cell In rng

product = cell.Value

' 在目标工作表中创建新工作表

Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

wsNew.Name = product

' 拷贝符合条件的行到新工作表

.Rows(1).Copy wsNew.Rows(1)

.AutoFilterMode = False

.Range("A1:D1").AutoFilter Field:=2, Criteria1:=product

.Range("A2:D" & .Cells(.Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy wsNew.Rows(2)

.AutoFilterMode = False

Next cell

End With

ws.Activate

End Sub

```

保存并关闭VBA编辑器。

现在，我们可以按下ALT+F8打开宏对话框，选择SplitData宏，并点击“运行”按钮。这将会根据产品拆分工作表。

完成拆分之后，我们需要创建一个工作表（Sheet3）来存储合并后的数据。然后，我们可以编写一个宏来进行合并操作。按下ALT+F11打开VBA编辑器，在左侧的项目窗格中双击Sheet3。

在代码窗口中添加以下代码：

```vba

Sub MergeData()

Dim ws As Worksheet

Dim wsNew As Worksheet

Dim lastRow As Long

Dim i As Integer

Set ws = ThisWorkbook.Sheets("Sheet3") ' 修改为目标工作表的名称

i = 2

' 遍历所有工作表

For Each wsNew In ThisWorkbook.Sheets

If wsNew.Name <> ws.Name And wsNew.Name <> "Sheet1" And wsNew.Name <> "Sheet2" Then ' 修改为源工作表和目标工作表的名称

' 将数据拷贝到目标工作表

lastRow = wsNew.Cells(wsNew.Rows.Count, "A").End(xlUp).Row

wsNew.Range("A2:D" & lastRow).Copy ws.Range("A" & i)

i = i + lastRow - 1

End If

Next wsNew

ws.Activate

End Sub

```

保存并关闭VBA编辑器。

现在，我们可以按下ALT+F8打开宏对话框，选择MergeData宏，并点击“运行”按钮。这将会将所有工作表合并为一个工作表。

这就是将一个工作表根据条件拆分成多个sheet，以及合并多个sheet成一个工作表的方法。通过使用宏，我们可以在Excel中做到这一点，提高工作的效率。 如果你喜欢我们三七知识分享网站的文章， 欢迎您分享或收藏知识分享网站文章 欢迎您到我们的网站逛逛喔！https://www.37seo.cn/