Excel VBA需求：查找含UNIT的单元格并与上方行地址拼接

我帮你梳理并修正了这份VBA代码，先说说你原代码里的几个小问题：比如lrow的类型定义错了（应该用Long存行号，不是Range），还有循环逻辑如果从上往下跑，可能会因为拼接后的内容干扰后续判断。下面是调整好的代码：

Sub ConcatenateRowAbove()
    Dim aCell As Range
    Dim lRow As Long ' 把类型改成Long，用来存行号数值
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    With ws
        ' 获取A列最后一行有数据的行号
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        
        ' 从最后一行往上循环，避免拼接后内容干扰后续判断
        For lRow = lRow To 2 Step -1
            ' 判断当前单元格是否包含"UNIT"，不区分大小写
            If InStr(1, .Range("A" & lRow).Value, "UNIT", vbTextCompare) > 0 Then
                ' 把当前行的内容拼到上一行末尾，用空格分隔
                .Range("A" & lRow - 1).Value = .Range("A" & lRow - 1).Value & " " & .Range("A" & lRow).Value
                ' 要是拼完想删掉原来的UNIT行，就把下面这行注释去掉
                ' .Rows(lRow).Delete
            End If
        Next lRow
    End With
End Sub

几个关键调整的说明： #

• 类型修正：原代码里把lrow定义成Range是错的，我们需要的是行号数字，所以改成Long类型。
• 循环方向：从下往上跑循环（To 2 Step -1），这样就算上一行内容因为拼接变长了，也不会影响已经处理过的行，避免重复触发判断。
• 不区分大小写匹配：用vbTextCompare参数，不管单元格里是小写的"unit"还是大写的"UNIT"都能识别到。
• 可选删除原行：如果拼接后不需要保留原来的UNIT行，取消注释.Rows(lRow).Delete这行就行。

用的时候注意这几点： #

1. 确认你的工作表名字是Sheet1，要是不是，把Set ws = ThisWorkbook.Sheets("Sheet1")里的Sheet1改成你的工作表名。
2. 建议先备份Excel文件再运行代码，避免误操作丢数据。
3. 要是不想用空格当分隔符，比如想用逗号，把拼接部分的" "换成", "就行。

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