Arrays 使用数组函数根据单元格的当前值更改单元格值？

我问了一个问题（几周前，我试图用它找到我新问题的答案，但我没能找到。基本上我想做的是：从一个工作簿复制数据并粘贴到模板工作簿的a列。之后，我想根据单元格中的内容更改刚刚粘贴的单元格的内容当我粘贴它们时。例如，一个单元格将被粘贴，它将显示“ALBY Total”，我想自动（使用VBA）将该单元格更改为“ALBY”。我尝试自己编写代码，但无法使其工作。我没有收到错误，但什么也没有发生。下面是我的代码示例（有大量数组，因此我不会全部提供）：

---

我对VBA的世界相当陌生，因此它很可能是一个简单的解决方案。我对它进行了修改，但不知道如何使其工作。

听起来像是手动粘贴值。如果是这种情况，则从包含值的模板工作簿运行时，以下操作应该有效：

子TSA_模板_创建_宏（）

lastRow=单元格（Rows.Count，1）.End（xlUp）.Row

对于x=1到最后一行

If InStr(1, Cells(x, 1), "ALBY") Then
    Cells(x, 1) = "ALBY"
ElseIf InStr(1, Cells(x, 1), "ANCH") Then
    Cells(x, 1) = "ANCH (+office)"
ElseIf InStr(1, Cells(x, 1), "ATLC") Then
    Cells(x, 1) = "ATLC"

如果结束

下一个x

---

End Sub

先生，你是冠军！非常感谢！！！就像我说的，我是个实习新手，你救了我的命。这是世界上最好的网站！

If InStr(1, Cells(x, 1), "ALBY") Then
    Cells(x, 1) = "ALBY"
ElseIf InStr(1, Cells(x, 1), "ANCH") Then
    Cells(x, 1) = "ANCH (+office)"
ElseIf InStr(1, Cells(x, 1), "ATLC") Then
    Cells(x, 1) = "ATLC"