如何通过VBA让用公式提取的多个姓名按规定排列和换行

cherga

tptopy 发表于 2018-12-12 19:49
为什么会出现这种提示，我真的不会解释。我思考了一下，可以把班级列表的重新设置和打印表里的数据提取分开 ...

麻烦了，很不好意思哈

tptopy

1.做了一点修改，要确保工作蒲中的“体检数据”，"打印","登记记录表"三个表不能删除，将不同学校的A列至AC列复制到“体检数据”的对应列，并在任意单元格点格点击一下，另两个表的班级下拉表就自动形成了。你可以用工作薄中的“学校1”，“学校2”交替实验一下。选择“打印”中的下拉列表中的班级，就自动提取数据，不用再点击
2，我不知道为什么打开文件时会删除数据有效性设置，就是没有了班级下拉列表，权宜之计就是打开工作蒲后在“体检数据”表里任一单元格点击一下，就会出现班级下拉列表。将就着用吧，注意备份好原数据，防止出现不可预测的情况。

cherga

tptopy 发表于 2018-12-13 16:29
1.做了一点修改，要确保工作蒲中的“体检数据”，"打印","登记记录表"三个表不能删除，将不同学校的A列至AC ...

非常感谢，第二个问题刚才试验了弄空白表就不会出现这样提示。前提是你把那两个代码分开编写了。还有异常那个表格四个字的姓名为什么会跟三个字跟两个字的姓名隔一行，导致打印预览显示不全
另外这些函数、VBA代码至少要在哪个版本才能全部能用。（第一个表格内的公式代码跟粘贴代码不算）

tptopy

cherga 发表于 2018-12-14 08:38
非常感谢，第二个问题刚才试验了弄空白表就不会出现这样提示。前提是你把那两个代码分开编写了。还有异常 ...

我这个姓名排版是简单处理的，严格处理起来很复杂，那个空行是因为没有两个字名字的。如果有两个字名字就不会出现空行，但断行还是不美观。又因为那个逗号是半角字符，处理起来很麻烦。如果将逗号换成全角字符就好处理多了，但逗号全角也不美观。最好是尽量将每一行填满。有时间我再试试别的方法，有结果就发给你。要等下周了。

tptopy

做了修改，你测试一下。

cherga

tptopy 发表于 2018-12-17 09:47
做了修改，你测试一下。

排列是好了 但是很容易打开就未响应。而且异常表格的下拉菜单不会因体检数据表格清空而清空，下拉菜单内容还在，就会导致复制进去的数据再打开出现不可读取的内容。

tptopy

试试这个，当工作薄重新打开时，会自动更新新班级列表。如果体检数据换成另一学校，点击该表任一单元格也会更新班级列表。只是退出时保存时要覆盖原先工作薄。注意，“体检数据”，“打印”，“记录表”这三个工作表不能删除，因为内含程序.还有，体检数据工作表不要清空，否则会出现错误提示。如果换学校，就用新学校的数据覆盖原数据就行了

cherga

tptopy 发表于 2018-12-18 15:20
试试这个，当工作薄重新打开时，会自动更新新班级列表。如果体检数据换成另一学校，点击该表任一单元格也会 ...

确实是要这样，我把你的清空内容后弄成空表再去复制其他学校信息，也是这样，还有一个办法就是把自动生成的下拉菜单代码去掉，改为手动设置，就不会了。总之，非常感谢。这个问题就到此为止啦。
非常感谢您的帮忙，我会在这个Excel里备注 本Excel代码主要有ExcelHome技术论坛——tptopy 提供

cherga

tptopy 发表于 2018-12-18 15:20
试试这个，当工作薄重新打开时，会自动更新新班级列表。如果体检数据换成另一学校，点击该表任一单元格也会 ...

http://club.excelhome.net/thread-1452365-1-1.html
这个可以帮我用比较简单的VBA来解答吗  

tptopy

cherga 发表于 2018-12-20 08:24
http://club.excelhome.net/thread-1452365-1-1.html
这个可以帮我用比较简单的VBA来解答吗

没看懂你的意思，根据条件查重复项应该没问题，“对重复项填充”填什么？依什么为数据源？
“如果将重复的其中一条删去，再次查重就不会列入重复项并取消重复填充”，重复项到底是删除还是不删除？重复项是否所有数据都一样，如果有不一样的，那应该删除哪一条？如果是删除了重复项再查时就不会有重复项了，还谈什么取消填充？