VBA 使用不等式替换

使用VBA实现不等式替换的案例代码

vba
Sub ReplaceInequality()
    Dim cell As Range
    Dim formula As String
    Dim newFormula As String
    
    '遍历选定范围内的每个单元格
    For Each cell In Selection
        '获取单元格的公式
        formula = cell.Formula
        
        '检查公式中是否包含不等式
        If InStr(formula, ">") > 0 Then
            '使用替换函数将不等式替换为等价的不等式
            newFormula = Replace(formula, ">", ">=")
            
            '将新的公式赋值给单元格
            cell.Formula = newFormula
        End If
    Next cell
End Sub