如何將字串連接到列的所有單元格（就地）？

Question

我想簡單地將一些文字附加到列的所有單元格中，但我想就地執行此操作。即用新值更新同一列。

例如，如果我有專欄：

A
A
乙

我想得到：

A
一個新的
新的

我知道我可以=A1&" new"在 B 的第一個單元格上執行操作並拖曳（然後用 B 列中生成的值覆蓋 A 列）。但正如我所說，我正在尋找一個到位不使用輔助列並僅更新 A 列的解決方案。

最好尋找一個沒有 VBA 的解決方案，但這也可以接受。

Answer 1

最簡單的解決方案是使用公式建立一個新列，=A1&" new"並將其複製並貼上到舊列上。您可以使用值的特殊貼上來不覆蓋公式。

複雜的解決方案是使用以下的 VBA 巨集：

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
  If c.Value <> "" Then c.Value = c.Value & " new"
Next
End Sub

這個VBA可以這樣使用：

1. 選擇範圍

2. 按住Alt+F11開啟 Microsoft Visual Basic 視窗。

3. 點選插入 > 模組並將上述 VBA 程式碼貼到「模組」視窗中

4. 按 F5 鍵運行該巨集。