如何生成Excel中的數字輪廓

Question

正在運行的Excel 2013和Windows 10也有類似的結構圖1所示：

由於gserg這個answer，我可以跟蹤深度變化從一行到下一，如示於下面圖2：

如何使用該信息，或類似的計算，以產生一nume

的溶液需要時深度爲27個水平行是1,000+

Answer 1

這是基於你的7例的工作：如圖J列下面圖3的RIC輪廓列，但是通過將數組大小和列變量更改爲27（或您擁有的許多列），它很容易擴展。讓我知道它是否過度簡化 - 我意識到您的示例數據可能就是這樣，而您的實際數據比這更復雜。

Sub Outline(ws As Worksheet, columns As Integer, offset As Integer) 
    Dim row, lastRow As Long 
    Dim index, col As Integer 
    Dim level As String 

    Dim values(1 To 255) As Integer 
    values(1) = 0 

    lastRow = ws.UsedRange.Rows.Count 

    For row = 1 To lastRow 
    For index = 1 To columns 
     If ws.Cells(row, index).Value <> "" Then 
     values(index) = values(index) + 1 
     level = values(1) 

     If index > 1 Then 
      For col = 2 To index 
      level = level & "." & values(col) 
      Next col 
     End If 

     ws.Cells(row, columns + offset).NumberFormat = "@" 
     ws.Cells(row, columns + offset).Value = level 

     For col = index + 1 To columns 
      values(col) = 0 
     Next col 

     Exit For 
     End If 
    Next index 
    Next row 
End Sub