胜芳新闻,胜芳资讯

您当前的位置:胜芳人才网 >> 胜芳资讯 >> 教育培训 >> Excel——用VBA把一张工作表拆分成多张工作表
Excel——用VBA把一张工作表拆分成多张工作表
2024-07-03|资讯来源: 胜芳人才网|查看: 183

Sub 拆分工作簿为多个sheet()


Set d = CreateObject("scripting.dictionary")


With Worksheets(1)


rrow = .Cells(Rows.Count, "a").End(3).Row


For i = 2 To rrow '从第2行开始拆分


strr = .Range("B" & i).Value '拆分B列内容


If Not d.exists(strr) Then


d.Add strr, .Range("a" & i).Resize(1, 10)


Else


Set d.Item(strr) = Union(d.Item(strr), .Range("a" & i).Resize(1, 10))


End If


Next


k = d.keys


i = d.items


For a = 0 To d.Count - 1


Worksheets.Add.Name = k(a)


i(a).Copy Worksheets(k(a)).Range("a2")


Next


End With


End Sub


  • 温馨提示:以上Excel——用VBA把一张工作表拆分成多张工作表的资讯来自胜芳人才网(胜芳地区找工作,发布招聘信息的胜芳人才网招聘网站),每天更新胜芳最新招聘信息。本内容地址:http://www.sfrcw.cn/article/articledetail-431.html转载请注明
最新资讯
微信分享
胜芳保安招聘胜芳兼职招聘招聘胜芳司机招聘胜芳会计招聘胜芳外贸业务招聘胜芳销售招聘胜芳设计招聘

关注微信公众号

访问手机版本