Excel 多个工作簿按照同一条件拆分为多个表.VBA

最新推荐文章于 2024-09-22 19:25:07 发布

原创

最新推荐文章于 2024-09-22 19:25:07 发布 · 1.6k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#EXCEL #VBA #多个工作簿拆分

该VBA代码示例演示如何遍历多个工作表，并根据'组合'列的内容将数据拆分为单独的工作簿。适用于所有列名相同且不为空的情况。每个拆分的工作簿将按'组合'列的唯一值命名并保存。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Dim ws As Worksheet
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
sm = Application.SheetsInNewWorkbook
For Each ws In Worksheets
With ws
Set rng = Nothing

// 将“组合”替换为需要的列名称（多个工作簿的列名必须为一样，且不能为空）
Set rng = .UsedRange.Find(what:="组合", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext)
If Not rng Is Nothing Then
r0 = rng.Row
c0 = rng.Column
r = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
c = .UsedRange.Find(what:="*", LookIn:=xlValues, lo