Skip to content

Instantly share code, notes, and snippets.

@sooop

sooop/fill_empty_cell.vba

Last active December 24, 2015 01:29
Show Gist options
  • Save sooop/6723991 to your computer and use it in GitHub Desktop.
Save sooop/6723991 to your computer and use it in GitHub Desktop.
Download ZIP
Excel VBA Routines
Raw
fill_empty_cell.vba
Sub FillEmptyCell()
' Fill empty cell with specified string to selection
Dim str As String
str = InputBox("Enter the string", ," ")
For Each Cell In Selection
If IsEmpty(Cell) Then Cell.Value = str
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment