You can use Not IsEmpty in VBA to check if a cell is not blank.
Here’s an example of how you might use this syntax in a macro:
Sub IfNotBlank()
Dim i As Integer
For i = 2 To 13
If Not IsEmpty(Range("A" & i)) Then
Result = "Cell is Not Empty"
Else
Result = "Cell is Empty"
End If
Range("B" & i) = Result
Next i
End Sub
This particular example checks if each cell in the range A2:A13 is not blank and then outputs either “Cell is Not Empty” or “Cell is Empty” to each corresponding cell in the range B2:B13.
The following example shows how to use this syntax in practice.
Example: How to Use “If Not Blank” in VBA
Suppose we have the following list of basketball team names in Excel:
Suppose we would like to check if each cell in the range A2:A13 is not blank and then output the results in the corresponding cells in the range B2:B8.
We can create the following macro to do so:
Sub IfNotBlank()
Dim i As Integer
For i = 2 To 13
If Not IsEmpty(Range("A" & i)) Then
Result = "Cell is Not Empty"
Else
Result = "Cell is Empty"
End If
Range("B" & i) = Result
Next i
End Sub
When we run this macro, we receive the following output:
Column B tells us whether or not each of the corresponding cells in column A is empty.
You can also use the following macro to simply return the team name itself in column B if the value is not empty in column A:
Sub IfNotBlank()
Dim i As Integer
For i = 2 To 13
If Not IsEmpty(Range("A" & i)) Then
Result = Range("A" & i).Value
Else
Result = "Empty"
End If
Range("B" & i) = Result
Next i
End Sub
When we run this macro, we receive the following output:
Column B now returns the name of the team in column A if the cell is not blank.
Note: You can find the complete documentation for the VBA IsEmpty method here.
Additional Resources
The following tutorials explain how to perform other common tasks in VBA:
VBA: How to Count Occurrences of Character in String
VBA: How to Check if String Contains Another String
VBA: A Formula for “If” Cell Contains”