如何用VBA将Excel C2:C236单元格单词间空格替换为下划线？

当然可以搞定这个需求！我给你准备了两种VBA方案——一种完全贴合你构思的遍历思路，另一种是更高效的批量替换方式，按需选择就行：

这个方法严格按照你想的逐个遍历单元格的逻辑来，专门处理C2到C236的内容：

Sub ReplaceSpacesWithUnderscore()
    Dim i As Long
    ' 遍历C列第2行到第236行的所有单元格
    For i = 2 To 236
        ' 将当前单元格内的所有空格替换为下划线
        Cells(i, "C").Value = Replace(Cells(i, "C").Value, " ", "_")
    Next i
    MsgBox "替换完成！"
End Sub

• 小优化：如果你的单元格内容可能存在首尾空格（比如" White Dress "），想只替换单词间的空格，可以先去掉首尾空格再替换，修改这一行即可：

  Cells(i, "C").Value = Replace(Trim(Cells(i, "C").Value), " ", "_")
  

  Trim函数会自动清除内容首尾的空格，只保留中间单词间的空格来替换。

如果你的目标区域固定是C2:C236，用Excel自带的替换功能的VBA实现会快很多，尤其是数据量较大时，不用逐个循环：

Sub BatchReplaceSpaces()
    ' 对C2:C236区域执行批量替换
    Range("C2:C236").Replace What:=" ", Replacement:="_", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    MsgBox "批量替换完成！"
End Sub

• 说明：LookAt:=xlPart表示查找单元格内所有的空格（不管位置），如果需要只替换整个单元格都是空格的情况，可以改成LookAt:=xlWhole，不过显然你需要的是前者。

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器；
2. 插入新模块：右键点击左侧的工作簿名称 → 「插入」→ 「模块」；
3. 把上面任意一段代码粘贴进去；
4. 按下F5运行代码，或者回到Excel界面，在「开发工具」选项卡中找到对应的宏执行即可。

内容的提问来源于stack exchange，提问作者Nytro