excel中使用vba函数将小于1000的数值转换为0

1、首先我们打开一个工作样表作为例子。

2、打开vba编辑器，插入一个新的模块，在模娄壶狩匈块编辑框中输入以下代码：Sub numbertozero()Dim c As RangeDim rng As RangeSet rng 租涫疼迟= ActiveSheet.Range("A1").CurrentRegionFor Each c In rng.Cells If c.Value < 1000 Then c.Cells = 0 NextEnd Sub

3、我们定义c和rng为区域变量，然后赋值rng为全选整个工作薄表格的区域范围。

4、使用for each历遍整个工作薄的单元格，定义c为区域变量即是在rng变量中寻找所有的单元格。

5、在循环中，每寻找到一个单元格都对其单元格值进行一次判断，本例中是对c.value判炝里谧艮断是否小于1000，如果是，则将其值改为0

6、我们侑喏嵋甲插入一个按钮，指定这个宏，然后运行，会发现单元格内数值少于1000的数全部变更为数值0。记住字符串不会被这个判断语句判断，所以不会发生更改。