求助：如何从日志行数据提取规整数据？VBA提取Process X遇难题

需求说明 #

需要从类日志结构的原始数据中提取指定信息，转换为规整格式。当前使用VBA代码处理，但无法提取"Process X"流程名称并填充到对应列。

数据示例说明 #

原始数据结构 #

• A列：时间戳
• B列：日志内容，按Start Process X → 多行日志（含带Full关键字的行） → End Process X的结构分组，X为具体流程名称（如Process 1、Process 2）

目标规整格式 #

保留所有带Full关键字的行，同时为每行补充对应的Process X名称，对应列分别为：

• 时间戳（对应原始A列）
• Full日志内容（对应原始B列）
• Process X（新增的流程名称列）
• 原始Full日志内容（另一列）

现有VBA代码 #

Sub Data_Extraction()
    
 Dim R1 As Range, xCel As Range
   Dim Checking As Boolean
   Dim Rng As Range
   
   Set R1 = Range(Range("B2"), Range("B" & Range("B" & Rows.Count).End(xlUp).Row))
   
   Checking = False
   For Each xCel In R1.Cells
      If InStr(1, xCel.Value, "Start") <> 0 Then
         Checking = True
         
      End If
      
      If Checking = True And InStr(1, xCel.Value, "Full") <> 0 Then
         xCel.Offset(0, 3).Value = xCel.Value
        
        
      End If
             
      
      
      
      If Checking = True And InStr(1, xCel.Value, "Full") <> 0 Then
        xCel.Offset(0, 2).Value = xCel.Offset(0, -1).Value
      
      End If
        
                  
      If InStr(1, xCel.Value, "End") <> 0 Then
         Checking = False
      End If
      
   Next xCel
End Sub

问题分析与修复代码 #

现有代码的核心问题是：没有捕获Start行中的Process X名称，因此无法为后续的Full行填充对应流程列。

修改后的代码新增了存储当前流程名称的变量，在检测到Start行时提取流程名，再在处理Full行时写入对应列：

Sub Data_Extraction_Fixed()
    Dim R1 As Range, xCel As Range
    Dim Checking As Boolean
    Dim currentProcess As String ' 新增变量存储当前流程名称
    
    Set R1 = Range(Range("B2"), Range("B" & Range("B" & Rows.Count).End(xlUp).Row))
    
    Checking = False
    currentProcess = ""
    
    For Each xCel In R1.Cells
        ' 检测到Start行，提取Process名称并标记开始处理
        If InStr(1, xCel.Value, "Start") <> 0 Then
            Checking = True
            ' 提取"Start "之后的内容，即Process X
            currentProcess = Mid(xCel.Value, InStr(1, xCel.Value, "Start ") + Len("Start "))
        End If
        
        ' 处理Full行，填充时间戳、Process名称、日志内容
        If Checking = True And InStr(1, xCel.Value, "Full") <> 0 Then
            xCel.Offset(0, 2).Value = xCel.Offset(0, -1).Value ' 填充时间戳
            xCel.Offset(0, 3).Value = currentProcess ' 填充Process X名称
            xCel.Offset(0, 4).Value = xCel.Value ' 填充Full日志内容
        End If
        
        ' 检测到End行，结束当前流程处理
        If InStr(1, xCel.Value, "End") <> 0 Then
            Checking = False
            currentProcess = "" ' 重置流程名称
        End If
    Next xCel
End Sub

关键改动说明 #

1. 新增currentProcess变量，用于临时存储当前正在处理的Process X名称
2. 在检测到Start行时，通过Mid和InStr函数提取Start 之后的流程名称
3. 处理Full行时，将currentProcess写入对应偏移列（可根据实际列位置调整Offset(0,3)的参数）
4. 检测到End行时，重置currentProcess变量，避免后续流程污染

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