VBA 如何按照特定字符实现【自动分级】显示？

Anubarak · 发表于 2017-1-10 16:31

本帖最后由 Anubarak 于 2017-1-10 16:40 编辑

各位老师，在论坛里只找到按树形索引分级的相关代码，请问如何按照关键字去做分组显示呢？
如附件：
第一列的数据如表所示，后续还有很多列
1. A字符开头的是第一级标题
2. B字符开头的是第二级标题
3. *字符表示除A、B外的其他字符，这些统一归第三级

现在想实现如下图的自动分级，请教代码思路，谢谢！

yjh_27 · 发表于 2017-1-10 17:37

BOM 大纲排序-自定义函数
http://club.excelhome.net/thread-1175717-1-1.html
(出处: ExcelHome技术论坛)

yjh_27 · 发表于 2017-1-11 10:55

参见附件。

小花鹿 · 发表于 2017-1-11 11:20

取第一个字符，简单判断一下就行了

Anubarak · 发表于 2017-1-11 14:58

本帖最后由 Anubarak 于 2017-1-11 15:04 编辑

小花鹿发表于 2017-1-11 11:20
取第一个字符，简单判断一下就行了

Sub outline1()
Dim RNG As Range
For i = 65535 To 1 Step -1
Cells.Find(What:="A").Select
Selection.EntireRow.Select
Set RNG = ActiveSheet.Selection
RNG.OutlineLevel = 3
Next
End Sub
<p> </p>

复制代码

你好，请问一下我段代码，跑到 RNG.OutlineLevel = 3会报错，是为什么呢？

我晕，我试出来了，原来里面要加一个rows。
改成：
Selection.EntireRow.Select
Selection.rows.OutlineLevel = 3
就可以了

		自动登录	找回密码
密码			免费注册

[求助] VBA 如何按照特定字符实现【自动分级】显示？