单元格为空 则填入"N/A" vba
Sub FillEmptyCellsWithNA()
' 定义要检查的范围
Dim rng As Range
Set rng = ThisWorkbook.ActiveSheet.Range("A1:A10")
' 遍历范围中的每个单元格
Dim cell As Range
For Each cell In rng
' 检查单元格是否为空
If IsEmpty(cell.Value) Then
' 如果为空，则填入"N/A"
cell.Value = "N/A"
End If
Next cell
End Sub
页:
[1]