Excel VBA如何将每行首列字符串值追加到该行其余所有单元格

适用场景 #

运行环境为Excel VBA，对应数据规则：

• 每行第一列存储待追加的字符串值
• 首列之后的每一列存储单个单词格式的字符串
• 各行数据独立互不影响
  核心需求：把每行首列的字符串，追加到该行其余所有非空单元格的内容末尾。

效果参考 #

源数据示例 #

预期处理结果 #

可直接运行的VBA代码 #

Sub AppendRowPrefixToCells()
    Dim targetSheet As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim rowIndex As Long, colIndex As Long
    Dim prefixText As String
    
    ' 默认处理当前激活的工作表，如需指定可改成 Set targetSheet = Sheets("你的工作表名")
    Set targetSheet = ActiveSheet
    
    ' 取A列最后一个有值的行作为数据终点
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row
    
    For rowIndex = 1 To lastRow
        prefixText = targetSheet.Cells(rowIndex, 1).Value
        ' 首列为空的行直接跳过
        If Len(prefixText) > 0 Then
            ' 取当前行最后一个有值的列
            lastCol = targetSheet.Cells(rowIndex, targetSheet.Columns.Count).End(xlToLeft).Column
            ' 从第二列开始遍历追加
            For colIndex = 2 To lastCol
                If Len(targetSheet.Cells(rowIndex, colIndex).Value) > 0 Then
                    targetSheet.Cells(rowIndex, colIndex).Value = _
                    targetSheet.Cells(rowIndex, colIndex).Value & prefixText
                End If
            Next colIndex
        End If
    Next rowIndex
    
    MsgBox "所有行处理完成", vbInformation
End Sub

操作步骤 #

1. 打开目标Excel文件，按下Alt+F11快捷键打开VBA编辑器
2. 在左侧工程资源管理器中右键点击当前工作簿名称，依次选择「插入」-「模块」
3. 把上面的代码完整粘贴到弹出的模块代码编辑区
4. 按下F5运行对应的宏即可完成批量处理，运行前建议备份原始文件避免内容误改无法恢复

自定义调整说明：如果需要把首列字符串拼接在原有内容的前方，只需要把代码里拼接部分的原有内容 & 前缀顺序调换为前缀 & 原有内容即可。

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