How to quickly deselect cells from selected ranges in Excel?

Supposing you need to deselect some cells or ranges from current selections, you have to unselect the whole selection, and reselect again, because Excel does not offer a way to deselect cells once they have been selected. And this article will list some tricky guidance to deselect part of cells or ranges from the current selection.

Deselect part of cells or ranges from selection with VBA code

Deselect part of cells or ranges from selection with Kutools for Excel

Recommended Productivity Software

Office Tab: Use tabbed interface in Office as the use of web browser Chrome, Firefox and Internet Explorer.
Kutools for Excel: Adds 120 powerful new features to Excel. Increase your productivity in 5 minutes. Save two hours every day!
Classic Menu for Office: Brings back your familiar menus to Office 2007, 2010 and 2013 (includes Office 365).

For example, you have selected lots of cells, but now you find there are some cells that you don’t want. So you need to deselect them, and leave other selected cells, see following screenshots:


arrow blue right bubble Deselect part of cells or ranges from selection with VBA code

Hint


VBA is a fantastic way to deal with some operations in Excel that is not easy with Excel's commands. So does deselecting cells or ranges.

Step 1: Select the range that you will work with;

Step 2: Click a cell in the selection that you want to deselect with holding down the Ctrl key.

Step 3: Hold down the Alt + F11 keys in Excel, and it opens the Microsoft Visual Basic for Applications window.

Step 4: Click Insert > Module, and paste the following macro in the Module Window.

VBA for deselecting active cell from selection

Sub UnSelectCell()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set DeleteRng = Application.InputBox("Delete Range", xTitleId, Type:=8)
For Each rng In InputRng
If Application.Intersect(rng, DeleteRng) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub

Step 5: Press the F5 key to run this macro. Then a dialog pops up for you to select a worked range. See screenshots:




Step 6: Then click OK, another dialog pops up for you to deselect cells in the range. And if you want to deselect more than one cell in the range, you can hold Ctrl button to select them one by one. See screenshot:




Step 7: Click OK, and you can see the result:



arrow blue right bubble Deselect part of cells or ranges from selection with Kutools for Excel

If you need to deselect many cells or ranges from selection, the VBA above is not a good way. So we introduce the following trick, the Select Range Helper tools of Kutools for Excel. It can help you deselect any cell or range from selection easily and quickly.

Kutools for Excel includes more than 120 handy Excel tools. Free to try with no limitation in 30 days. Get it Now.

Step 1: Click Kutools > Select Tool >> Select Range Helper….

Step 2: In Select Range Helper dialog box, check the Deselect Cells option, and then click or drag mouse to deselect cells or ranges from the selection. See screenshot:

Step 3: And the cells you unwanted have been deselected from the selection. At the end, close the Select Range Helper dialog box.

For more detailed information about Select Range Helper, please visit Select Range Helper feature description.


Related articles:


Is your problem solved?

Recommended Productivity Tools

The following tools will greatly save your time and effort, which one do you prefer?
Office Tab: Using handy tabs in your Office, as the way of Chrome, Firefox and New Internet Explorer.
Kutools for Excel: 120 powerful new functions for Excel, Increase your productivity in 5 minutes. Save two hours every day!
Classic Menu for Office: Bring back familiar menus to Office 2007, 2010, 2013 and 365, as if it were Office 2000 and 2003.

Kutools for Excel

gold star1 Amazing! Increase your productivity in 5 minutes. Don't need any special skills, save two hours every day!

gold star1 More than 120 powerful advanced functions which designed for Excel:

  • Merge Cell/Rows/Columns without Losing Data.
  • Combine and Consolidate Multiple Sheets and Workbooks.
  • Compare Ranges, Copy Multiple Ranges, Convert Text to Date, Unit and Currency Conversion.
  • Count by Colors, Paging Subtotals, Advanced Sort and Super Filter,
  • More Select/Insert/Delete/Text/Format/Link/Comment/Workbooks/Worksheets Tools...

Screen shot of Kutools for Excel

btn read more     btn download     btn purchase