Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to delete all but selected ranges in Excel?

In Excel, we can quickly and directly delete the selected ranges, but have you ever tried to delete other cell contents except the selected ranges? This article, I will introduce some tricks for you to solve this task in Excel quickly and easily.

Delete all but selected ranges with VBA code

Delete all but selected ranges with Select Range Helper of Kutools for Excel

Delete all but selected ranges with Copy Ranges of Kutools for Excel


Copy and paste multiple ranges at once:

Normally, Excel doesn't support the multiple copy, but, if you have Kutools for Excel, with its Copy Ranges feature, you can quickly copy multiple selected ranges and paste them to any other location as you need.

doc delete all but selected 11


Delete all but selected ranges with VBA code


There is no direct way for you to delete all of the unselected cell values at once, but, the following VBA code may help you, please do as follows:

1. Please hold the Ctrl key to select the cells that you want to keep.

doc delete all but selected 1

2. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Application window.

3. In the Microsoft Visual Basic for Application window dialog box, click Insert > Module, then copy and paste the below VBA code into the Module window.

VBA code: delete all cell values but the selected ranges

Sub ClearAllExceptSelection()
'updateby Extendoffice 20151113
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In ActiveSheet.UsedRange
        If Intersect(xCell, xRg) Is Nothing Then
            xCell.Clear
        End If
    Next
    Application.ScreenUpdating = xUpdate
End Sub

4. Then press F5 key to run this code, and a prompt box is popped out to remind you to select the range of cells that you want to keep, if you have selected the ranges in step1, please click OK, if not, you can select the cells you want in the prompt box, and enter the commas to separate the multiple ranges, then click OK button, see screenshot:

doc delete all but selected 2

5. After clicking OK, all other cell values have been deleted but just leaving the selected ranges, see screenshot:

doc delete all but selected 3


Delete all but selected ranges with Select Range Helper of Kutools for Excel

If you have installed Kutools for Excel, with its Inverse Selection feature of Select Range Helper utility, you can quickly reverse the selection, and then delete the reversed selections at once.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days. 

After installing Kutools for Excel, please do as follows:( Free Download Kutools for Excel Now! )

1. Select the ranges of cells that you want to keep.

2. Then click Kutools > Select > Select Range Helper, see screenshot:

doc delete all but selected 4

3. In the Select Range Helper dialog box, check Inverse Selection, see screenshot:

doc delete all but selected 5

4. And then drag the mouse to select the range that you want to reverse the selections. When you release the mouse, the selected cells have been deselected and the unselected cells have been selected at once. See screenshot:

doc delete all but selected 6

5. Then close the dialog box, and press Delete key to delete the selections at once. And only your desired cells have been kept, see screenshot:

doc delete all but selected 7

Free Download Kutools for Excel Now!


Delete all but selected ranges with Select Range Helper of Kutools for Excel

Another utility-Copy Ranges of Kutools for Excel also can help you finish this job, you just need to copy your selected ranges to a new worksheet, and then delete the old worksheet.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days. 

After installing Kutools for Excel, please do with the following steps:( Free Download Kutools for Excel Now! )

1. Hold Ctrl key to select the ranges of cells that you want to keep.

2. Then click Kutools > Copy Ranges, see screenshot:

doc delete all but selected 8

3. And in the Copy Multiple Ranges dialog box, check All option under the Paste special, check Including row height and Including column width if you want to keep the row height and column width that you want, see screenshot:

doc delete all but selected 9

4. Then click Ok button, and another prompt box will pop out to remind you select a cell to put the copied cells, please select a cell in a new worksheet, see screenshot:

doc delete all but selected 10

5. And then click OK, and only your selected ranges have been pasted into the new worksheet, and now you can delete the original worksheet as you need.

Free Download Kutools for Excel Now!


Demo: Delete all but selected ranges with Kutools for Excel

Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download and free trial Now!


Recommended Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 71%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 82% Excel problems.

  •  Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  •  Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  •  Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  •  Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  •  No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  •  Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  •  60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  •  Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.