VBA分表分类代码

论坛 › 期权论坛 › 期权

 特立独行的菜鸟  2019-6-16 04:21  2068  0

Sub shtadd_1()

复制代码

Dim i As Integer, sht As Worksheet

复制代码

i = 2

复制代码

Set sht = Worksheets("Sheet1")

复制代码

Do While sht.Cells(i, "L").Value ""

复制代码

On Error Resume Next

复制代码

If Worksheets(sht.Cells(i, "K").Value) Is Nothing Then

复制代码

Worksheets.Add after:=Worksheets(Worksheets.Count)

复制代码

ActiveSheet.Name = sht.Cells(i, "K").Value

复制代码

End If

复制代码

i = i + 1

复制代码

Loop

复制代码

End Sub

复制代码

[/code][code]Sub FenLei()

复制代码

Dim i As Long, bj As String, rng As Range

复制代码

i = 2

复制代码

bj = Cells(i, "K").Value

复制代码

Do While bj ""

复制代码

Set rng = Worksheets(bj).Range("A65536").End(xlUp).Offset(1, 0)

复制代码

Cells(i, "A").Resize(1, 13).Copy rng

复制代码

i = i + 1

复制代码

bj = Cells(i, "K").Value

复制代码

Loop

复制代码

[/code][code]End Sub

复制代码

[code][/code]以上代码可将特定列中的值归类，例如将A组的人归类到一个表格等

回复

分享到 :

0 人收藏

1级新秀

特立独行的菜鸟

积分:

帖子:

精华:

+ 关注私信

期权论坛

期权论坛

期权网络科技版权所有: 关于我们; 联系我们; 加入我们; 反馈问题; 免责声明; 积分充值

统一社会信用代码: 积分规则; 网站地图; 爱文库; 下属网站

官方: 新浪微博; 微信公众号
◆

下载: 表情包; App下载

期权论坛

期权论坛

QQ咨询|关于我们|Archiver|手机版|小黑屋|( 辽ICP备15012455号-4 ) Powered by 期权论坛 X3.2 © 2001-2016 期权工具网&期权论坛 Inc.