Can't Use Replace Command to Search for Blank Cells

Article translations Article translations
Article ID: 111942 - View products that this article applies to.
This article was previously published under Q111942
Expand all | Collapse all

SYMPTOMS

In Microsoft Excel, if you choose Replace from the Edit menu, and you leave the Find What box blank and choose Find Next, Replace, or Replace All to fill blank cells on a worksheet, you receive the following error message:
Search string must be specified

WORKAROUND

To work around this problem, use any of the following methods.

Method 1: The following method is presented on page 33 in "Microsoft Excel Visual Basic for Applications Step by Step," a Microsoft Press book.

  1. Highlight the range
  2. From the Edit menu, choose Goto
  3. Choose Special
  4. Select the Blanks check box
  5. Choose OK

    All the blanks in the range are now highlighted. Enter the value that you want to replace the blanks with. Now press CTRL+ENTER. This places the data in all of the selected cells.

    Note that if the worksheet is completely blank, you will receive the error message "No Cells Found."
Method 2:
The following Visual Basic procedure prompts you for the text you want to enter in blank cells, and replaces the contents of the blank cells in the selection with this text.
             Sub Replace_Blanks()
                ' Dimension variables
                Dim Blanks As Object
                Dim ReplaceWith As String
                Dim Cell As Object
                ' Prompt user for string to enter in blank cells
                ReplaceWith = _
                Application.InputBox("Replace blank cells with what?", _
                "Replace String")
                ' Select blank cells in selection
                Selection.SpecialCells(xlBlanks).Select
                ' Defined Blanks as selection
                Set Blanks = Application.Selection
                ' Fill each cell in selection with user input
                For Each cell In blanks
                   Cell.Activate
                   ActiveCell.Formula = replacewith
                Next cell
             End Sub
Microsoft provides examples of Visual Basic for Applications procedures for illustration only, without warranty either expressed or implied, including, but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. The Visual Basic procedures in this article are provided 'as is' and Microsoft does not guarantee that they can be used in all situations. While Microsoft support professionals can help explain the functionality of a particular macro, they will not modify these examples to provide added functionality, nor will they help you construct macros to meet your specific needs. If you have limited programming experience, you may want to consult one of the Microsoft Solution Providers. Solution Providers offer a wide range of fee-based services, including creating custom macros. For more information about Microsoft Solution Providers, call Microsoft Customer Information Service at (800) 426-9400.

STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. This problem was corrected in Microsoft Excel for Windows version 5.0c.

MORE INFORMATION

In Microsoft Excel versions earlier than version 5.0, you can replace blank cells with a value by using the Replace dialog box and leaving the Find What box blank. However, in Microsoft Excel version 5.0, you cannot use this method to replace blank cells because you cannot leave the Find What box in the Replace dialog box blank.

REFERENCES

"Microsoft Excel Visual Basic for Applications Step by Step," Reed Jacobson, ISBN is 1-55615-589-1

Properties

Article ID: 111942 - Last Review: October 11, 2006 - Revision: 1.3
APPLIES TO
  • Microsoft Excel 5.0 Standard Edition
Keywords: 
kbprogramming KB111942
Retired KB Content Disclaimer
This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.

Give Feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com