单元格为空 则填入"N/A" vba

nnsea

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