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
2条答案
按热度按时间5vf7fwbs1#
你需要分两次做：在单元格值的末尾添加“45”，并将每次出现的空格替换为“45“：
f5emj3cl2#
也许像这样。