Disclaimer: This article is a blogger original article, follow the CC 4.0 BY-SA copyright agreement, reproduced, please attach the original source link and this statement.
All Sub play table selection region NULL slash ()
the For Each CEL Selection.Cells the In
the If cel.Value = "NULL" the Then
cel.Value = ""
cel.Borders (xlDiagonalUp) .LineStyle = xlContinuous
End the If
the Next
End Sub