如何将一个Excel表格根据其中一列的分类自动拆分到不同的SHEET表中?请看附件，谢...

letian03 · 发表于 2016-1-25 14:45

现有一个“充值订单”表格，如何用公式将这个文件根据里面的“运营商”一列，分为移动、电信、联通3个档次，且相同人名依顺序排列并不改变原来格式自动拆分到3个SHEET表格中，要求分档后的3个SHEET表都不能有空行，最好能保持原来的行顺序。见附件，3个运营商分档的SHEET表就是我是目标。谢谢各位高手！在线等……

letian03 · 发表于 2016-1-25 14:58

补充说明：别疑问为何不用“筛选”功能解决这个问题？实际问题要复杂的多，只是想通过这个简单举例找到方法

袁勇 · 发表于 2016-1-25 15:10

letian03 发表于 2016-1-25 14:58
补充说明：别疑问为何不用“筛选”功能解决这个问题？实际问题要复杂的多，只是想通过这个简单举例找到方法

充值订单.zip (13.34 KB, 下载次数: 154)

随心_201320085 · 发表于 2016-1-25 15:35

Sub test()
Dim sht As Worksheet, rng As Range
i = 2
For Each sht In Worksheets
If sht.Name <> "订单" Then
sht.[a3:g100].ClearContents
For Each rng In Range("E3", [e3].End(xlDown))
If rng.Value = sht.Name Then
i = i + 1
sht.Cells(i, 1) = i - 2
sht.Cells(Rows.Count, 2).End(xlUp)(2, 1).Resize(1, 6) = rng(1, -2).Resize(1, 6).Value
End If
Next
End If
i = 2
Next
End Sub

复制代码

随心_201320085 · 发表于 2016-1-25 15:36

11充值订单.zip (19.9 KB, 下载次数: 332)

letian03 · 发表于 2016-1-25 16:02

太厉害了，谢谢各位老师答复！感谢感谢

letian03 · 发表于 2016-1-26 13:50

随心_201320085 发表于 2016-1-25 15:35

这个应该是用“宏”来做的，可惜，看不懂！太高深了，谢谢

letian03 · 发表于 2016-1-26 13:57

随心_201320085 发表于 2016-1-25 15:36

你给的附件中，点击“Button 1”，显示“无法运行“'11充值订单.xlsm'!test”宏。可能是因为该宏在此工作簿中不可用，或者所有的宏都被禁用。菜鸟级的我就不懂了哈

随心_201320085 · 发表于 2016-1-26 14:06

letian03 发表于 2016-1-26 13:50
这个应该是用“宏”来做的，可惜，看不懂！太高深了，谢谢

你打开文件的文件没有启用宏！

xiaoyuerzhou02 · 发表于 2018-2-9 16:33

看得不太懂，能不能请专家给点解释？
比如我要如何简单修改才能应用？

		自动登录	找回密码
密码			免费注册