求如何对每一个空白单元格都读入0的程序

ykcbf1100

gzminge 发表于 2024-8-9 20:54
老师，问题还没有解决，是我的表述不够清楚。

要求是对空白的格子写入0，但是不包括原来格子里有0或者 ...

小改一下，你再试一下。

quqiyuan

gzminge 发表于 2024-8-9 20:39
要求是空白的格子，但是程序把原来显示是0的格子也统一写入0.能不能避开原来有内容或者是原来就有0的格子 ...

你检查一下，本来有内容的不会再写入的。

joy.008@163.com

直接定位 空单元格 0 ctrl+enter
应该全过程不超过3秒~~~

gzminge

ykcbf1100 发表于 2024-8-9 20:57
小改一下，你再试一下。

有些单元格里的公式不见了，能不能避开含有公式的格子？

ykcbf1100

gzminge 发表于 2024-8-9 21:19
有些单元格里的公式不见了，能不能避开含有公式的格子？

再改一下。。。

ykcbf1100

如果要保留公式，那就不能使用数组，要牺牲一点速度。

1. Sub ykcbf()  '//2024.8.9
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("亲民")
   
4.         Set Rng = .[AI2785:BB13540]
   
5.         For Each rn In Rng
   
6.             If rn.Value = "" Then rn.Value = 0
   
7.         Next
   
8.     End With
   
9.     Application.ScreenUpdating = True
   
10. End Sub
    

复制代码

gzminge

ykcbf1100 发表于 2024-8-9 21:25
如果要保留公式，那就不能使用数组，要牺牲一点速度。

老师，能讲解一下为什么这一次可以避开公式的格子吗？

只是、那个人

1. Sub tt()
   
2. Dim ss As Range, kk As Range
   
3. Set ss = Range("AI2785:BB13540").SpecialCells(xlCellTypeBlanks)
   
4. For Each kk In ss
   
5. kk.Value = 0
   
6. Next kk
   
7. End Sub

复制代码

定位空格 遍历赋值为0

ykcbf1100

gzminge 发表于 2024-8-9 21:31
老师，能讲解一下为什么这一次可以避开公式的格子吗？

用数组的话，最后数组要重新写入工作表，数组写入工作表时是写入数值的，不包括格式。
这次是直接操作单元格，对于不是空格的单元格是直接省过的，所以，不会改变公式。

gzminge

ykcbf1100 发表于 2024-8-9 21:37
用数组的话，最后数组要重新写入工作表，数组写入工作表时是写入数值的，不包括格式。
这次是直接操作单 ...