基于首字符将单列转表格：Essbase/SmartView Excel VBA求助

嘿，作为刚接触Essbase/SmartView+VBA的新手，能写出填充ID和预算的宏已经很棒了！我来帮你完善这个单列层级转结构化表格的方案，咱们一步步来：

首先得明确：你的单列数据是靠首字符区分层级（比如一级项目首字符是数字、二级是字母，或者不同前缀），我们需要遍历每一行，识别当前行的层级，记录父层级的内容，遇到项目ID和预算行时，把所有层级信息和ID、预算一起写入结构化表格。

下面是通用版的代码，我加了详细注释，你可以根据自己的实际数据格式调整关键部分：

Sub ConvertEssbaseHierarchyToTable()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long, targetRow As Long
    ' 定义层级变量，根据你的实际层级数增减（比如有4级就加level4）
    Dim level1 As String, level2 As String, level3 As String
    Dim projectID As String, budgetValue As Double
    
    ' --------------------------
    ' 第一步：配置工作表和基础参数
    ' --------------------------
    Set wsSource = ThisWorkbook.Sheets("原始数据") ' 替换成你的原始数据工作表名
    Set wsTarget = ThisWorkbook.Sheets("结构化报表") ' 替换成你的目标工作表名
    
    ' 清空目标表（可选，避免重复数据）
    wsTarget.Cells.Clear
    ' 写入表头，根据层级数调整列名
    wsTarget.Range("A1:E1") = Array("一级项目", "二级项目", "三级项目", "项目ID", "预算")
    
    targetRow = 2 ' 目标表从第2行开始写数据
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row ' 获取原始数据最后一行
    
    ' --------------------------
    ' 第二步：遍历原始数据，识别层级并填充表格
    ' --------------------------
    For i = 2 To lastRow ' 假设原始数据第1行是表头，从第2行开始遍历
        Dim rawText As String
        rawText = Trim(wsSource.Cells(i, "A").Value)
        
        If rawText = "" Then GoTo SkipRow ' 跳过空行
        
        ' 👇 关键：根据首字符判断层级，你必须根据自己的实际数据修改这里！
        ' 示例规则：首字符为"1"=一级，"2"=二级，"3"=三级，"ID"开头=项目行
        Select Case Left(rawText, 1)
            Case "1"
                ' 一级项目：清空下级层级，记录当前层级名称
                level1 = Mid(rawText, 2) ' 去掉首字符"1"，取后面的项目名
                level2 = ""
                level3 = ""
            Case "2"
                ' 二级项目：继承一级，记录当前二级名称
                level2 = Mid(rawText, 2)
            Case "3"
                ' 三级项目：继承一、二级，记录当前三级名称
                level3 = Mid(rawText, 2)
            Case "I" ' 假设项目ID行以"I"开头（比如"ID:XXX 预算:XXX"）
                ' 拆分项目ID和预算，这里的格式要和你的数据匹配！
                Dim textParts() As String
                textParts = Split(rawText, " ") ' 假设ID和预算用空格分隔
                
                ' 提取ID（示例："ID:123" → 取":"后面的内容）
                projectID = Replace(textParts(0), "ID:", "")
                ' 提取预算（示例："预算:1000" → 转成数字）
                budgetValue = CDbl(Replace(textParts(1), "预算:", ""))
                
                ' 把层级+ID+预算写入目标表
                wsTarget.Cells(targetRow, "A") = level1
                wsTarget.Cells(targetRow, "B") = level2
                wsTarget.Cells(targetRow, "C") = level3
                wsTarget.Cells(targetRow, "D") = projectID
                wsTarget.Cells(targetRow, "E") = budgetValue
                
                targetRow = targetRow + 1 ' 目标行下移
        End Select
        
SkipRow:
    Next i
    
    ' 可选：给目标表添加Excel表格样式，方便后续操作
    wsTarget.ListObjects.Add(xlSrcRange, wsTarget.Range("A1").CurrentRegion, , xlYes).Name = "Essbase结构化报表"
    
    MsgBox "转换完成！快去目标工作表看看吧😉", vbInformation
End Sub

1. 层级判断规则：如果你的层级不是用"1/2/3"开头，而是用其他首字符（比如大写字母、特定符号），直接修改Select Case Left(rawText,1)里的Case值就行。如果是靠缩进空格区分层级，把判断逻辑改成这样：

   ' 示例：0个空格=一级，2个空格=二级，4个空格=三级
   Dim indentNum As Integer
   indentNum = Len(wsSource.Cells(i,"A").Value) - Len(rawText) ' 计算前置空格数
   Select Case indentNum
       Case 0: level1 = rawText: level2 = "": level3 = ""
       Case 2: level2 = rawText
       Case 4: level3 = rawText
   End Select
   

2. 项目ID和预算拆分：如果你的数据格式不是ID:XXX 预算:XXX，比如用竖线|分隔，就把Split(rawText, " ")改成Split(rawText, " | ")，提取逻辑也要对应修改。
3. 工作表名称：一定要把代码里的"原始数据"和"结构化报表"改成你实际的工作表名字！

• 先备份你的原始数据，避免误操作
• 打开Excel的「开发工具」→「Visual Basic」→插入模块，把代码粘贴进去
• 可以按F8逐步调试，看看每一步的变量值是否正确，方便排查问题

内容的提问来源于stack exchange，提问作者Matty Money