如何修改VBA代码实现：BU列含指定文本时给U列单元格加前缀

需求说明 #

当Excel表格中BU列的单元格完全等于文本"TAIL LIFT REQUIRED"时，给对应行U列的单元格开头添加"TL&PT "前缀；若BU列单元格无该文本则不做修改。

修改后的代码 #

Sub XPO_Amend()
    Dim ce As Range, lastrow As Long
    lastrow = Range("BU" & Rows.Count).End(xlUp).Row

    For Each ce In Range("BU2:BU" & lastrow)
        Select Case ce.Value
            Case "TAIL LIFT REQUIRED"
                ' 定位到当前行的U列，在原有内容前添加前缀（保留末尾空格）
                Range("U" & ce.Row).Value = "TL&PT " & Range("U" & ce.Row).Value
        End Select
    Next ce
End Sub

关键修改点 #

1. 目标列调整：原代码将内容写入BU列右侧的BT列（ce.Offset(,1)），现在改为直接通过行号定位U列单元格（Range("U" & ce.Row)），避免列偏移计算出错，可读性更强。
2. 前缀添加逻辑：原代码是直接赋值"TL&PT"，现在改为字符串拼接，将前缀与U列原有内容结合，实现"前缀+原有内容"的效果。
3. 保留原结构：保留了原有的Select Case结构，方便后续扩展多条件判断的需求。

扩展适配：检查单元格包含指定文本 #

如果需求是BU列单元格包含"TAIL LIFT REQUIRED"（而非完全匹配），可以修改判断逻辑为：

Sub XPO_Amend()
    Dim ce As Range, lastrow As Long
    lastrow = Range("BU" & Rows.Count).End(xlUp).Row

    For Each ce In Range("BU2:BU" & lastrow)
        ' 忽略大小写检查单元格是否包含指定文本
        If InStr(1, ce.Value, "TAIL LIFT REQUIRED", vbTextCompare) > 0 Then
            Range("U" & ce.Row).Value = "TL&PT " & Range("U" & ce.Row).Value
        End If
    Next ce
End Sub

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