​​​Excel如何把大于或小于某个数值的数据快速替换掉？（VBA方案）

问题描述

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

在一个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

，操作一遍会发现实现了想要的需求。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！ ​​​​​​​​

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；