请大神帮忙编写VBA，减轻工作，谢谢！！

烟火孤星泪

要求如下：
根据原始数据表的内容，批量生成”生成表“的形式，请大神帮忙VBA批量怎么操作，数据大约有1000条左右吧，谢谢


附件.rar (11.15 KB, 下载次数: 7)

2017-10-19 11:20 上传

点击文件名下载附件

详情请查看附件，谢谢！

烟火孤星泪

请大神帮忙一下，谢谢

vbee

1. Sub vbee()
   
2. r = 3
   
3. With Sheets("原始数据")
   
4. For i = 3 To 2000
   
5. If .Cells(i, 1) = "" Then Exit Sub
   
6.   a = Split(.Cells(i, 2), "、")
   
7.   For j = 0 To UBound(a)
   
8.    r = r + 1
   
9.    Sheets("生成表").Cells(r, 1) = .Cells(i, 1)
   
10.    Sheets("生成表").Cells(r, 2) = a(j)
    
11.   Next j
    
12. Next i
    
13. End With
    
14. End Sub

复制代码

zhangzhang

详见附件。。。。。。。。。。。。

烟火孤星泪

zhangzhang 发表于 2017-10-19 11:41
详见附件。。。。。。。。。。。。

相同名称取对应数据批量（合并）.rar (34.23 KB, 下载次数: 3)

2018-8-31 10:03 上传

点击文件名下载附件

你好，谢谢你上次帮我编写的vba附件，现在能否帮我在原来的基础上再增加一列，把原始表中的内容，生成合并表，谢谢

zhangzhang

烟火孤星泪 发表于 2018-8-31 10:04
你好，谢谢你上次帮我编写的vba附件，现在能否帮我在原来的基础上再增加一列，把原始表中的内容，生 ...

详见附件。。。。。。。。。。

烟火孤星泪

zhangzhang 发表于 2018-8-31 12:34
详见附件。。。。。。。。。。

你好，代码可以正常使用，能否再修改一下，生成的合并表中的每个专业的班级是否可以自动按升序进行排列，如下图
例如：

zhangzhang

烟火孤星泪 发表于 2018-8-31 15:13
你好，代码可以正常使用，能否再修改一下，生成的合并表中的每个专业的班级是否可以自动按升序进行排列， ...

数据表--班级  先排序 即可。