Excel VBA带通配符查找替换：替换小于号开头数值的小数点为逗号

我完全理解你的需求——只针对以<开头的单元格，把里面的.换成,，同时绝对不能影响其他场景下需要保留的小数点。这其实可以通过精准的单元格遍历+条件判断实现，下面是具体的VBA代码和细节说明：

完整VBA代码 #

Sub ReplaceDecimalInLessThanCells()
    Dim workingRange As Range
    Dim currentCell As Range
    
    ' 1. 定义要处理的单元格范围，可根据实际场景修改
    ' 示例：处理当前活动工作表的所有已使用单元格
    Set workingRange = ActiveSheet.UsedRange
    
    ' 关闭屏幕刷新，提升运行速度（可选）
    Application.ScreenUpdating = False
    
    ' 2. 逐个遍历单元格
    For Each currentCell In workingRange
        ' 检查：单元格非空，且内容以"<"开头
        If Not IsEmpty(currentCell.Value) And Left(currentCell.Value, 1) = "<" Then
            ' 3. 仅对符合条件的单元格替换小数点为逗号
            currentCell.Value = Replace(currentCell.Value, ".", ",")
        End If
    Next currentCell
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    MsgBox "指定单元格的小数点替换完成！", vbInformation
End Sub

代码细节解释 #

• 范围自定义：我用ActiveSheet.UsedRange自动覆盖当前工作表所有有内容的单元格，你也可以改成精准范围，比如ThisWorkbook.Sheets("原始数据").Range("A2:F1000")，直接定位到你的数据区域。
• 精准条件过滤：通过Left(currentCell.Value, 1) = "<"确保只处理以小于号开头的单元格，Not IsEmpty避免对空单元格做无用操作，完全不会碰其他单元格的内容。
• 替换逻辑：Replace函数仅作用于符合条件的单元格，不管是<2.5还是<10.0这类不同整数位数的情况，都能准确把小数点换成逗号。

额外实用提示 #

• 运行代码前建议先备份数据，避免误操作（虽然这个代码的针对性很强，出错概率极低）。
• 如果需要批量处理多个工作表，可以在代码外层套一个遍历工作表的循环，比如：

  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
      Set workingRange = ws.UsedRange
      ' 后面的遍历逻辑不变
  Next ws
  

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