打开EXCEL的vba编辑器,插入一个模块,输入以下VB脚本
Public Sub Zero_Clean()
i = 1
While i < 1000 ' 1000行
For j = 1 To 50 ' 50列
If Cells(i, j) = 0 Then Cells(i, j) = ""
Next j
i = i + 1
Wend
End Sub
运行它,可以让1000行×50列范围内所有显示0的单元格变成空白格。
【评论】 【打印】 【字体:大 中 小】 本文链接:http://blog.pfan.cn/otot/31156.html
打开EXCEL的vba编辑器,插入一个模块,输入以下VB脚本
Public Sub Zero_Clean()
i = 1
While i < 1000 ' 1000行
For j = 1 To 50 ' 50列
If Cells(i, j) = 0 Then Cells(i, j) = ""
Next j
i = i + 1
Wend
End Sub
运行它,可以让1000行×50列范围内所有显示0的单元格变成空白格。
阅读(4877) | 评论(3)
版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!
评论