VBA将单元格值复制到另一个单元格文本字符串中

Question

我正在用Excel管理库存。 我有2列要处理：

1. 产品名称
2. 包装信息

桌子看起来像这样

product name             packaging info
BLISE FACEWASH           50GM
IVREA CREAM              60GM
IVREA CREAM              30GM
IVREA SHAMPOO            30ML

我想将包装信息中的值添加到产品名称中，但是我想将其添加到产品名称中的最后一个单词之前。

所需结果：

product name                 packaging info
BLISE 50GM FACEWASH          50GM
IVREA 60GM CREAM             60GM
IVREA 30GM CREAM             30GM
IVREA 30ML SHAMPOO           30ML

我尝试了级联，但它无济于事，并使它变得更加复杂。

我一直在尝试使用宏，因为它似乎可行。

1. 复制第2列中的值
2. 移至左侧单元格
3. 从右跳1个字（ Ctrl + 左箭头）
4. 粘贴值
5. 添加一个空间
6. 转到下一行

产品名称中的所有单元格最终都具有相同的值。 我要去哪里错了？

如果不使用宏，最简单的方法是什么？

顺便说一句：工作表包含10列，超过4500行。

Answer 1

VBA； 假设标头位于A1 / B1中：

Sub MergeCols
    Dim cell As Range, pos As Long

    Set cell = Range("A2")

    Do Until cell.Value = ""
        pos = InStrRev(cell.Value, " ")
        If (pos > 0) Then
            cell.Value = Left$(cell.Value, pos) & cell.Offset(0, 1).Value & Mid$(cell.Value, pos)
        Else
            cell.Value = cell.Value & " " & cell.Offset(0, 1).Value
        End If
        Set cell = cell.Offset(1, 0)
    Loop
End Sub