VBA需求：基于锚点0构建两列匹配数组（含空单元格处理）

需求描述 #

以Excel数据表中Column1的“0”作为锚点，遍历Column1时，为每个锚点匹配两组数据：

• 锚点上方Column1的最后一个非空有效数字
• 锚点上方Column2的最后一个非空有效数字
  将这两组数据分别输出到Column3和Column4的同一行，最终输出格式参考下方示例。

原始数据表 #

Column1  Column 2
3        Blank
5        Blank
Blank    234
0        Blank
2        Blank
8        Blank
9        Blank
Blank    567
Blank    567
0        Blank
5        Blank
3        Blank
4        Blank
Blank    860
6        Blank
Blank    869
0        Blank
6        Blank
7        Blank

注：“Blank”代表单元格为空

期望输出 #

Column 3   Column 4 
5          234
9          567
6          869

现有代码问题 #

原有VBA代码仅能处理无空值的Column1，无法跳过空值定位到锚点上方的最后有效数据，无法满足需求：

Sub Cat()
   
    ' Reference the worksheet.
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    
    ' Reference the 2nd source cell.
    Dim sCell As Range: Set sCell = ws.Range("V12").Offset(1)
    
    ' Reference the 1st destinatin cell.
    Dim dCell As Range: Set dCell = ws.Range("X12")
    
    Do Until IsEmpty(sCell.Value)
        If sCell.Value = 0 Then
            dCell.Value = sCell.Offset(-1).Value ' ... = previous source cell
            Set dCell = dCell.Offset(1) ' ... = next destination cell
        End If
        Set sCell = sCell.Offset(1) ' ... = next source cell
    Loop
   
End Sub

修改后的VBA代码 #

Sub MatchAnchorData()
    Dim ws As Worksheet
    Dim sCell As Range
    Dim dCell As Range
    Dim lastValidCol1 As Variant ' 存储Column1的最后有效数字
    Dim lastValidCol2 As Variant ' 存储Column2的最后有效数字
    
    ' 设定工作表，可根据实际修改
    Set ws = ActiveSheet
    ' 设定数据源起始单元格（Column1的第一行数据），可根据实际修改
    Set sCell = ws.Range("A2")
    ' 设定输出起始单元格（Column3的第一行），可根据实际修改
    Set dCell = ws.Range("C2")
    
    ' 初始化存储变量
    lastValidCol1 = Empty
    lastValidCol2 = Empty
    
    ' 遍历Column1直到空单元格
    Do Until IsEmpty(sCell.Value)
        ' 更新Column1的最后有效数字
        If Not IsEmpty(sCell.Value) Then
            lastValidCol1 = sCell.Value
        End If
        
        ' 更新Column2的最后有效数字
        If Not IsEmpty(sCell.Offset(0, 1).Value) Then
            lastValidCol2 = sCell.Offset(0, 1).Value
        End If
        
        ' 遇到锚点0时，输出匹配数据
        If sCell.Value = 0 Then
            dCell.Value = lastValidCol1
            dCell.Offset(0, 1).Value = lastValidCol2
            Set dCell = dCell.Offset(1) ' 移动到下一行输出位置
        End If
        
        Set sCell = sCell.Offset(1) ' 移动到下一行数据源
    Loop
End Sub

代码说明 #

1. 变量追踪：新增lastValidCol1和lastValidCol2变量，实时记录遍历过程中Column1和Column2的最后有效数据，自动跳过空值
2. 遍历逻辑：每一行都检查Column1和Column2的当前值，若为有效内容则更新对应变量
3. 锚点处理：当遇到Column1的“0”时，将记录的最后有效数据写入输出列，随即移动输出单元格到下一行
4. 可配置性：工作表、数据源起始位置、输出起始位置可根据实际表格结构修改

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