注册    登录
今天看啥  ›  专栏  ›  完美Excel

VBA示例：根据分级显示组合插入层级序号

完美Excel  · 公众号  · Excel  · 2024-05-21 05:52
学习Excel技术，关注微信公众号：excelperfect标签：VBA本文的示例整理自vbaexpress.com论坛，供有兴趣的朋友参考。如下图1所示的工作表，使用Excel的组合功能建立了分级显示。图1现在，我想在列A中根据分级显示的层级来插入相应的序号，如下图2所示。图2打开VBE，插入一个标准模块，在其中输入下面的代码：Sub AddLevel() Dim i As Integer Dim start_row As Integer Dim end_row As Integer Dim a As Integer Dim b As Integer Dim c As Integer With Worksheets("Sheet1") start_row = 3   end_row = .Range("B3").End(xlDown).Row For i = start_row To end_row Select Case .Rows(i).OutlineLevel Case Is = 2 a = a + 1 b = 0: c = 0 Case Is = 3 b = b + 1: c = 0 Case Is = 4 c = c + 1 End Select     .Range("A" & i) = a & IIf ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  Power BI可视化呈现入门小实战
2 天前
Excel之家ExcelHome  ·  筛选后的商品总价，还不会请举手
3 天前
完美Excel  ·  VBA代码：将多个文本文件合并到当前工作表
5 天前
Excel之家ExcelHome  ·  用函数公式制作旋风图
5 天前
Excel之家ExcelHome  ·  年轻不识透视表，错把公式当成宝
6 天前
上海国防动员  ·  包！揽！金！牌！
2 年前
南国都市报  ·  海口云龙镇第三轮全员核酸检测如均为阴性，将转为警戒区管理
2 年前
丨疯子  ·  巴菲特商学院演讲，中国妹子提问引爆全场。#特斯拉ModelY预订-20210714160456
2 年前
浦发银行信用卡  ·  “餐厅周”来啦！最高888元霸王餐已安排
3 年前
心理语录  ·  男人发什么是暗示不想跟你继续聊天？
7 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号