问题描述

依然是工作中遇到的一个问题。

在一个Excel工作表中，如何将如何将大于或小于某一数值的数替换成一个特定的数字？

比如如何将下面的表中所有大于等于9的数字替换成1，小于9的数字替换成0？

处理步骤

1.在工作表标签上右键，点击“查看代码”

2.先将小于9的变成0，在VBA编辑窗口中粘贴下面的代码

 Sub FindReplace()
 Dim Rng As Range
 Dim WorkRng As Range
 On Error Resume Next
 xTitleId = "KutoolsforExcel"
 Set WorkRng = Application.Selection
 Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
 For Each Rng In WorkRng
 If Rng.Value > 9 Then
 Rng.Value = 0
 End If
 Next
 End Sub

3.点击运行（下面是mac版Excel配图，win样式不一样）

4.选择数据范围

5.点击确定，将看到表中小于9的数据全部变成了0

6.重复上面步骤，将代码中< 9改成> 8，将Rng.Value = 0改成Rng.Value = 1，操作一遍会发现实现了想要的需求。