求查找低于特定字符数单元格并清空单元格内容的代码

hjx00

我是excel初学者，想要查找工作表中低于特定字符数的单元格并清空单元格内容，在站内也找不到这方面的代码，希望大神们帮帮我。

thestronger

以下代码在手机上打的，未经调试。

Dim arr
are=sheet1.UsedRange'把sheet1的已使用范围加载到数组中，在数组中运算会快很多

dim r, c

for r=1 to ubound(arr)'循环每行
for c=1 to ubound(arr,2)'循环每列
if len(arr(r,c))<6 then arr(r,c)="" ,如果字符数量少于6个，则清空单元格
next
next
sheet1. UsedRange=arr '把计算结果放回表格中

hjx00

thestronger 发表于 2017-2-21 07:08
以下代码在手机上打的，未经调试。

Dim arr

不好意思老师，我是初学者，什么都不懂，再麻烦您帮我看下。我复制您的代码运行后出现宏窗口，接下来应该怎么操作？

hjx00