VBA中Range.Replace无法将点替换为逗号的高效替代方案求助

嘿，我之前也碰到过好几次这种「手动替换没问题，但录制的宏就是不生效」的情况，给你几个高效的解决方案，比慢得要死的循环好用多了：

最常见的问题是录制宏时没明确指定工作表，导致代码在当前激活的工作表上执行，而不是你要处理的那张表。另外，单元格格式（比如文本格式带隐藏格式）也可能干扰替换逻辑。

给代码加上明确的工作表指向，顺便处理可能的格式干扰，这样基本能解决90%的问题：

Sub FixDotReplace()
    ' 把"你的工作表名称"改成你实际的表名，比如"Sheet1"
    With ThisWorkbook.Worksheets("你的工作表名称").Range("T:T")
        ' 先把单元格格式设为通用，避免格式干扰替换
        .NumberFormat = "General"
        ' 执行替换操作
        .Replace What:=".", Replacement:=",", _
                 LookAt:=xlPart, SearchOrder:=xlByRows, _
                 MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        ' 如果原数据是文本格式，替换后可以再改回去
        '.NumberFormat = "@"
    End With
End Sub

如果数据行数特别多（比如几万行以上），数组法是内存级操作，比逐个单元格循环快几十倍甚至上百倍：

Sub SuperFastReplace()
    Dim targetSheet As Worksheet
    Dim dataRange As Range
    Dim dataArray As Variant
    Dim rowIndex As Long
    
    ' 指定目标工作表
    Set targetSheet = ThisWorkbook.Worksheets("你的工作表名称")
    ' 只取T列有数据的区域，不处理空单元格
    Set dataRange = targetSheet.Range("T1:T" & targetSheet.Cells(targetSheet.Rows.Count, "T").End(xlUp).Row)
    ' 把单元格数据读到数组里
    dataArray = dataRange.Value
    
    ' 遍历数组替换内容
    For rowIndex = LBound(dataArray, 1) To UBound(dataArray, 1)
        If Not IsEmpty(dataArray(rowIndex, 1)) Then
            dataArray(rowIndex, 1) = Replace(dataArray(rowIndex, 1), ".", ",")
        End If
    Next rowIndex
    
    ' 把处理好的数组写回单元格
    dataRange.Value = dataArray
End Sub

如果不想写VBA，Power Query是绝佳选择，处理大数据速度飞快，还能一键刷新：

• 选中T列的所有数据（包括表头如果有的话）
• 点击「数据」选项卡 → 「从表格/区域」（记得勾选「我的表格有标题」）
• 在Power Query编辑器里，选中T列，点击「转换」选项卡 → 「替换值」
• 查找值填.，替换值填,，点击确定
• 点击「关闭并上载」，选择替换原数据或者上载到新位置
• 以后数据更新了，右键点击表格选择「刷新」就行

这些方案都比For循环高效太多，你可以根据自己的情况选～

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