Question

excel 批量替换保留某些内容

比如，
他跑了10米
他跑了20米
他跑了30米

一次性替换成（注意！是一次性替换，我知道2次分别替换数字前后句可以完成）
He ran 10 meters
He ran 20 meters
He ran 30 meters
以上内容是为了提问而简化了的内容。
实际情况不是这么简单的句子，而是长度不均，非常复杂的长句。

Answer 1

方法一：公式

假设内容在A2—A4单元格，则在B2单元格输入：

下拉，完成

方法二：VBA

按Alt+F11，进入VBA编辑界面，左上角【工程】栏空白处右键，插入-模块，复制粘贴以下代码并相应修改，按F5键运行即可实现一次替换。

Sub replaceThem()
  colIdxBefore = 1  '需替换内容所在列
  colIdxAfter = 1   '替换后内容所在列
  
  Dim oldWords As String   '待替换字符，用|分隔
  Dim newWords As String   '替换后字符，用|分隔
  
  oldWords = "他跑了|米"
  newWords = "He ran | meters"
  
  With Worksheets(2)  '这里指定要操作的工作表
    For i = 2 To .UsedRange.Rows.Count
      .Cells(i, colIdxAfter).Value = repStr(.Cells(i, colIdxBefore).Value, oldWords, newWords)
    Next
  End With
End Sub

Function repStr(myStr As String, oldstr As String, newstr As String)
  
  spl = "|"  '分隔符
  os = Split(oldstr, spl)   '需替换内容，用|分隔
  ns = Split(newstr, spl)   '替换后内容，用|分隔
  
  uos = UBound(os)
  uns = UBound(ns)
  
  If uos = uns Then   '判断 替换内容 与 替换后内容 数量是否相同
    For i = 0 To UBound(os)
      myStr = replace(myStr, os(i), ns(i))
    Next
    repStr = myStr
  Else
    MsgBox "被替换字符有 " & uos & " 组，而替换字符有 " & uns & " 组。" & vbCrLf & "请检查！"
    Exit Function
  End If
End Function

Answer 2

在I1中输入公式：
=SUBSTITUTE(B1,$A1,$H1)
向右拖，向下拖复制公式，A列到F列的数据中含A列的签字被替换为H列的字符。
如果要把数据还是放在A列到F列，则复制公式得到的数据，鼠标定位到A1，右键——选择性粘贴——数值。

Answer 3

还不如直接替换得了，本来是件简单的事情。没必要弄得那么麻烦

Answer 4

用SUBSTITUTE公式吧