EXCEL按条件从总表中拆分为多个工作表

2021-10-13 17 条评论 9534 次阅读

{collapse}
{collapse-item label="代码"}

Sub NewSheets()

Dim d As Object, sht As Worksheet, arr, brr, r, kr, i&, j&, k&, x&

Dim Rng As Range, Rg As Range, tRow&, tCol&, aCol&, pd&

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set d = CreateObject("scripting.dictionary")

Set Rg = Application.InputBox("请您框选拆分依据列！只能选择单列单元格区域！", Title:="提示", Type:=8)

tCol = Rg.Column

tRow = Val(Application.InputBox("请您输入总表标题行的行数？"))

If tRow = 0 Then MsgBox "您未输入标题行行数，程序退出！": Exit Sub

Set Rng = ActiveSheet.UsedRange

arr = Rng

tCol = tCol - Rng.Column + 1

aCol = UBound(arr, 2)

For i = tRow + 1 To UBound(arr)

If Not d.exists(arr(i, tCol)) Then

d(arr(i, tCol)) = i

Else

d(arr(i, tCol)) = d(arr(i, tCol)) & "," & i

End If

Next

For Each sht In Worksheets

If d.exists(sht.Name) Then sht.Delete

Next

kr = d.keys

For i = 0 To UBound(kr)

If kr(i) <> "" Then

r = Split(d(kr(i)), ",")

ReDim brr(1 To UBound(r) + 1, 1 To aCol)

k = 0

For x = 0 To UBound(r)

k = k + 1

For j = 1 To aCol

brr(k, j) = arr(r(x), j)

Next

Next

With Worksheets.Add(, Sheets(Sheets.Count))

.Name = kr(i)

.[a1].Resize(tRow, aCol) = arr

.[a1].Offset(tRow, 0).Resize(k, aCol) = brr

Rng.Copy

.[a1].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

.[a1].Select

End With

End If

Next

Sheets(1).Activate

Set d = Nothing

Erase arr: Erase brr

MsgBox "数据拆分完成！"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

{/collapse-item}
{collapse-item label="使用教程" open}

左键双击打开素材文件【自动拆分.xlsx】Microsoft Excel工作表。要编辑VBA代码，首先我们需要打开【Visual Basic编辑器】，右键单击【总表】工作表，左键单击右键菜单中的【查看代码（V）】即可打开【Visual Basic编辑器】。
编辑VBA代码。左键单击【工程资源管理器】中的【Sheet1 总表】后，在右侧代码窗口中键入以下代码，您也可以选择复制粘贴。代码输入完成后，不需要保存，直接关闭【Visual Basic编辑器】即可。
插入一个矩形。单击右键，指定宏。
选中宏，确定即可。
开始拆分。

{cloud title="自动拆分例表" type="default" url="https://www.wasss.cn/usr/uploads/2021/11/1698591670.zip" password=""/}
{/collapse-item}
{/collapse}

rancwspbpu说道：

2025-10-07

2025年10月新盘做第一批吃螃蟹的人coinsrore.com
新车新盘嘎嘎稳嘎嘎靠谱coinsrore.com
新车首发，新的一年，只带想赚米的人coinsrore.com
新盘上车集合留下我要发发立马进裙coinsrore.com
做了几十年的项目我总结了最好的一个盘（纯干货）coinsrore.com
新车上路，只带前10个人coinsrore.com
新盘首开新盘首开征召客户！！！coinsrore.com
新项目准备上线，寻找志同道合的合作伙伴coinsrore.com
新车即将上线真正的项目，期待你的参与coinsrore.com
新盘新项目，不再等待，现在就是最佳上车机会！coinsrore.com
新盘新盘这个月刚上新盘新车第一个吃螃蟹！coinsrore.com

回复
1. 崔倩女士药粉网购说道：
  
  2026-09-08
  
  ▂▃▄▅▆▇▉性药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  ▂▃▄▅▆▇▉春药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  ▂▃▄▅▆▇▉催药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  ▂▃▄▅▆▇▉春药网 app《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  ▂▃▄▅▆▇▉春药网官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  春药网 app下载安装《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  北京春药网官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  长效催药液《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  成人春药官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  春药 91 官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  春药之力官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  香港夜媚春药官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  春药网官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  春药软件官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  春药官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  春药阁官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  ▁▂▃▄▅▆▇▉◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
  ▁▂▃▄▅▆▇▉淫药商城春药《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  91 成人淫药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  日本春药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  91 成人淫药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  成人春药网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  正品进口春药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  色春药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  情药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药商城网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  女生发情药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  发情药网站《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  发情药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  药店女生发情药网站《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉▁▂▃▄▅▆▇▉
  美女xxx网站《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  成人春药网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  ◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
  女生发情视频网站《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  情药网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药女《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药商城官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  福建同春药厂官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  青蛇春药堂官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药网店官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药网 app《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药网官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药网 app下载安装《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  ◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
  北京春药网官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  长效催药液《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  成人春药官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药 91官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药之力官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  香港夜媚春药官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  春药网官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药软件官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药阁官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  九一性药商城官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药在线商城官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药商店官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  国内性药官网入口《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  日本性药官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药城官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药专卖店官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  长春堂性药官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药社官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药国际官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药网上药店官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药联盟官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药商城官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  福建同性药厂官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性蛇春药堂官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  性药网店官网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女生用的发情药《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药水《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药哪里买《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  成人发情药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女用口服发情药的替代品《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药商城《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女生吃调情药《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药在哪买《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药购买方式《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女用发情药吃的《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女子发情药《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药的购买渠道《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  ◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。▁▂▃▄▅▆▇▉
  私人药水购买渠道《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催清药货到付款《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  乖乖听药商城网上药店《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药网站《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药女用《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女用发情药怎么做《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女用发情药口服《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  桃花劫药水购买渠道《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女用春情药《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  药店女生发情药《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女生发情视频网站《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  药店女生发情药网站《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女用的发情药《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药购买渠道《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女用口服发情药有哪些《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  发情药在哪里买《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  女用口服发情《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催药批发《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催药供货商《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催药批发网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催药供货商《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催药批发网《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催药购物平台有哪些《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催清药哪里购买《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催清药水购买渠道《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  催药进货渠道《认准网站akak47.com》其他广告全是骗子▁▂▃▄▅▆▇▉
  ◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。▁▂▃▄▅▆▇▉
  
  回复
isdpjsaizb说道：

2025-10-07

新盘新盘这个月刚上新盘新车第一个吃螃蟹！

回复
oujhpcbqsa说道：

2025-01-06

哈哈哈，写的太好了https://www.lawjida.com/

回复
1说道：

2024-12-08

1

回复
1说道：

2024-12-08

1

回复
1说道：

2024-12-08

1

回复
firtzeuenn说道：

2024-11-14

真棒！

回复
1. 1说道：
  
  2024-12-08
  
  1
  
  回复
2. 1说道：
  
  2024-12-08
  
  1
  
  回复
3. 1说道：
  
  2024-12-08
  
  555
  
  回复
nitzrktyak说道：

2024-10-19

文章的确不错啊https://www.cscnn.com/

回复
clsmtbaoic说道：

2024-10-01

看的我热血沸腾啊https://www.237fa.com/

回复
1. 1说道：
  
  2024-12-08
  
  1
  
  回复
2. 1说道：
  
  2024-12-08
  
  1
  
  回复
3. 1说道：
  
  2024-12-08
  
  555
  
  回复
Typecho说道：

2021-10-13

欢迎加入 Typecho 大家族

回复

发表评论 取消回复

发表评论取消回复