如何用VBA一键为A列空值填入0

ck03w11

请教老师，如何用VBA一键为A列空格填入0

yangjet

Sub aa()
a = Sheet1.[a65536].End(3).Row
For x = 2 To a
If Cells(x, 1) = "" Then
Cells(x, 1) = 0
Else
End If
Next x
End Sub

excel用户1116

一键为A列空值填入0.zip (30.97 KB, 下载次数: 1)

2022-3-28 14:04 上传

点击文件名下载附件

参考！！

ck03w11

excel用户1116 发表于 2022-3-28 14:04
参考！！

老师好，如果遇到以下情况都强行填入0，该怎么做啊！谢谢！！！

#NULL!
#DIV/0!
#VALUE!
#REF!
#NAME?
#NUM!
#N/A

excel用户1116

ck03w11 发表于 2022-3-28 15:04
老师好，如果遇到以下情况都强行填入0，该怎么做啊！谢谢！！！

一键为A列空值填入0.zip (30.84 KB, 下载次数: 2)

2022-3-28 15:07 上传

点击文件名下载附件

林木水

1. Sub demo()
   
2. Dim i As Long, arr
   
3. arr = Sheet1.Range("a2:a" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         If VBA.IsNumeric(arr(i, 1)) = False Then
   
6.             arr(i, 1) = 0
   
7.         End If
   
8.     Next i
   
9.     Sheet1.Range("b2").Resize(UBound(arr)) = arr    '把这个b2单元格改成A2就可以了
   
10. End Sub

复制代码

思路：
判断A列数据不是数字类型全部赋值“0”即可，用数组速度会更快

金樽空对月

ck03w11 发表于 2022-3-28 15:04
老师好，如果遇到以下情况都强行填入0，该怎么做啊！谢谢！！！

1. Sub text()
   
2. Dim x%
   
3. For x = 1 To Range("a65536").End(3).Row
   
4.     If IsError(Cells(x, 1)) Or Cells(x, 1) = "" Then
   
5.         Cells(x, 1) = 0
   
6.     End If
   
7. Next
   
8. End Sub

复制代码

ck03w11

excel用户1116 发表于 2022-3-28 15:07

谢谢老师我试试

ck03w11

金樽空对月 发表于 2022-3-28 20:39

还是没有绕开#N/A弹出类不匹配

ck03w11

林木水 发表于 2022-3-28 16:14
思路：
判断A列数据不是数字类型全部赋值“0”即可，用数组速度会更快

谢谢老师，这个行了谢谢