Excel VBA需求：将含特定字符的单元格合并至上方起始单元格

方法一：VBA代码实现 #

适合批量处理大量数据，逻辑灵活可定制。以下代码会遍历B列，当单元格包含斜杠/时，将其与上方的关联编号合并，结果写入对应行的A列：

Sub MergeSlashWithUpperCode()
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim codeValue As String
    
    ' 指定目标工作表，替换为你的表名
    Set targetWs = ThisWorkbook.Worksheets("Sheet1")
    ' 获取B列最后一行行号
    lastRow = targetWs.Cells(targetWs.Rows.Count, "B").End(xlUp).Row
    
    ' 从第2行开始遍历（假设第1行是表头）
    For currentRow = 2 To lastRow
        ' 检查当前B列单元格是否包含斜杠
        If InStr(targetWs.Cells(currentRow, "B").Value, "/") > 0 Then
            ' 获取上方的编号单元格值（此处默认紧挨着的上一行是编号，可根据实际调整）
            codeValue = targetWs.Cells(currentRow - 1, "B").Value
            ' 将合并结果写入A列对应行
            targetWs.Cells(currentRow, "A").Value = codeValue & " " & targetWs.Cells(currentRow, "B").Value
        End If
    Next currentRow
End Sub

代码使用步骤： #

1. 打开Excel文件，按下Alt + F11进入VBA编辑器
2. 右键点击左侧工程窗口的目标工作簿，选择「插入」→「模块」
3. 将上述代码粘贴到模块中，修改Sheet1为你的工作表名称
4. 按下F5运行代码，或回到Excel界面通过「开发工具」→「宏」执行

如果编号单元格并非直接紧挨着斜杠单元格（比如中间有空行），可替换原获取codeValue的代码段，改用向上查找逻辑：

' 替换原获取codeValue的代码段
Dim searchRow As Long
searchRow = currentRow - 1
Do While searchRow >= 1
    If targetWs.Cells(searchRow, "B").Value <> "" And InStr(targetWs.Cells(searchRow, "B").Value, "/") = 0 Then
        codeValue = targetWs.Cells(searchRow, "B").Value
        Exit Do
    End If
    searchRow = searchRow - 1
Loop

方法二：工作表公式实现 #

适合快速处理，无需VBA。根据你的需求，可选择以下两种公式：

情况1：编号直接在斜杠单元格的上一行 #

在A2单元格输入公式，下拉填充至目标行：

=IF(ISNUMBER(SEARCH("/",B2)),B1&" "&B2,"")

情况2：编号与斜杠单元格之间可能有空行/其他斜杠单元格 #

使用数组公式（输入后需按下Ctrl + Shift + Enter确认），在A2单元格输入后下拉：

=IF(ISNUMBER(SEARCH("/",B2)),INDEX(B:B,MAX(IF(B$1:B1<>"",IF(ISERROR(SEARCH("/",B$1:B1)),ROW(B$1:B1),0))))&" "&B2,"")

这个公式会自动向上查找最近的不含斜杠的非空单元格，作为关联编号进行合并。

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