集中

ddz79101

老师！我想将B列指定的名称集中上下，写有代码，但未运行成功。请老师看看！谢谢
另：表中行涂色为事后加，原表无色，非按色排序，为避免歧义，重新上传附件集中2，其中我将颜色清除了

ynzsvt

1. Sub ¼ˉÖD()
   
2. Dim n&, rng
   
3.   rng = Array("àÏáù", "ÆY°Ë", "Ç®¶t", "àîËÄ")
   
4. Application.AddCustomList rng
   
5. n = Application.CustomListCount
   
6. ' If Range("d:d") > 0 Then
   
7.   Range("a:f").Sort key1:=[b1], order1:=xlAscending, Header:=xlYes, ordercustom:=n + 1
   
8.   Application.DeleteCustomList n
   
9. ' End If
   
10. End Sub

复制代码

然后增加D列为主排序项。

cjc209

不知道你是什么意思

ddz79101

cjc209 发表于 2024-11-16 13:41
不知道你是什么意思

老师！就是将涂色的行集中一起为一组，位置无讲究，上下中任意，其他的行则也无讲究。目的是将这些散落的人集中，便于阅读。由于行太多，滚动寻找太麻烦。

ddz79101

ynzsvt 发表于 2024-11-16 13:32
然后增加D列为主排序项。

老师！  rng = Array("àÏáù", "ÆY°Ë", "Ç®¶t", "àîËÄ")
这是什么？另运行结果未集中上下一起

ynzsvt

你这个适合用筛选，没必要用代码的。

小凡、、、

填充默认扩招到6列，要根据数据区域的范围的话修改下扩展的参数

ddz79101

ynzsvt 发表于 2024-11-16 14:53
你这个适合用筛选，没必要用代码的。

老师！一次性可以将三人集中。这筛选如何使用。我是03版

ynzsvt

这是d列的筛选，辅助C列的筛选空白即可。

ddz79101

小凡、、、 发表于 2024-11-16 15:03
填充默认扩招到6列，要根据数据区域的范围的话修改下扩展的参数

谢谢老师！怪我不好，我涂色只为提示，但错误引导了老师。原表没有涂色的。