如何在Excel中的列中添加常量值

我要创建以下内容： 我在excel中有一列名为“名称”

我希望本专栏的内容如下：

Names
-----
Mary45 White45
Bob45 Smith45

有人知道在Microsoft Excel中实现这一点的方法吗

---

谢谢，

您需要分两次执行此操作：在单元格值末尾添加“45”，并用“45”替换每个空格：

---

也许是这样的

sub addColt1911acp()
    dim i as long, arr as variant

    with worksheets(1)
        arr = .range(.cells(2, 1), .cells(.rows.count, 1).end(xlup)).value2
        for i = lbound(arr, 1) to ubound(arr, 1)
            arr(i,1) = trim(join(split(arr(i, 1) & chr(32), chr(32)), "45 "))        
        next i
        .cells(2, 1).resize(ubound(arr, 1), ubound(arr, 2)) = arr
    end with

end sub

---

选择单元格，然后键入值应为多少？说真的，虽然不清楚你在问什么。为什么“玛丽·怀特”是玛丽·怀特？只是名字和姓氏加上“45”吗？我想要名字+45和姓氏+45。。名称超过17.000，因此我无法手动执行。我想您可以使用第二列，并将B列中的公式设置为“=左（A2，查找（A2）”&“45”和右（A2，查找（…）&“45”。替换为“45”或者，你进入VBA，做同样的事情，在表中循环，用“45”等替换第一个空格，或者-

=连接（左（A1，FIND（“，A1）-1）和“45”，右（A1，LEN（A1）-FIND（“，A1））&“45”）

。将这个复制到所有行中，选择值，“粘贴特殊（值）”在第一列上，删除临时列。您好，我尝试了这个，得到了以下输出：Mary 45white45我想得到Mary45 White45…或=REPLACE（A2，FIND（“，A2），1，“45”）&“45”。

=SUBSTITUTE(A1&"45";" ";"45 ")

sub addColt1911acp()
    dim i as long, arr as variant

    with worksheets(1)
        arr = .range(.cells(2, 1), .cells(.rows.count, 1).end(xlup)).value2
        for i = lbound(arr, 1) to ubound(arr, 1)
            arr(i,1) = trim(join(split(arr(i, 1) & chr(32), chr(32)), "45 "))        
        next i
        .cells(2, 1).resize(ubound(arr, 1), ubound(arr, 2)) = arr
    end with

end sub