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

文章预览

学习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 (b  < >  0 ,  "."   ………………………………