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

gzminge

求对表中的AI2785：BB13540每一个空白的单元格，都填入数值0.


比如，AI13540现在是空白无内容，能不能用程序填入0？



（1）.rar (799.58 KB, 下载次数: 8)

2024-8-9 19:01 上传

点击文件名下载附件

quqiyuan

参与一下，仅供参考。。

ykcbf1100

比较简单。。。

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, j&
   
    Application.ScreenUpdating = False
   
    With [AI2785:BB13540]
        ar = .Value
        For i = 1 To UBound(ar)
            For j = 1 To UBound(ar, 2)
                If Len(ar(i, 1))=false Then ar(i, 1) = 0
            Next j
        Next i
        .Value = ar
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gzminge

ykcbf1100 发表于 2024-8-9 19:22
比较简单。。。

老师好，能不能辛苦你也来写一个？谢谢！

ykcbf1100

gzminge 发表于 2024-8-9 20:05
老师好，能不能辛苦你也来写一个？谢谢！

都有二位老师写了，应该解决问题了吧。
参与一下吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024..8.9
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("亲民")
   
4.         arr = .[AI2785:BB13540]
   
5.         For i = 1 To UBound(arr)
   
6.             For j = 1 To UBound(arr, 2)
   
7.                 If arr(i, j) = Empty Then arr(i, j) = 0
   
8.             Next
   
9.         Next
   
10.         .[AI2785:BB13540] = arr
    
11.     End With
    
12.     Application.ScreenUpdating = True
    
13. End Sub
    
14. 
    

复制代码

gzminge

gwjkkkkk 发表于 2024-8-9 19:25
Option Explicit
Sub TEST2()
    Dim ar, i&, j&

只能输入第一列，其他的无效。

gzminge

quqiyuan 发表于 2024-8-9 19:17
参与一下，仅供参考。。

要求是空白的格子，但是程序把原来显示是0的格子也统一写入0.能不能避开原来有内容或者是原来就有0的格子？

gzminge

ykcbf1100 发表于 2024-8-9 20:20
都有二位老师写了，应该解决问题了吧。
参与一下吧。

老师，问题还没有解决，是我的表述不够清楚。

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