Question

Q: How to unselect selected cell/row?

I've recently started using Office 2013. But now I cannot work with Excel. Most important feature is gone.
I'm often selecting cell/rows for further analysis and copying, but when I have to select tens of them it can happen that I will select something wrong.
(I'm selecting using CTRL and mouse Click). But when I want to unselect my mistake I cannot. There is no such feature in Excel 2013? How come feature that is available everywhere is not in Excel 2013. Maybe I'm wrong and missing something, but I cannot unslect single cell/row without loosing whole selection.

Answer

A:

I've recently started using Office 2013. But now I cannot work with Excel. Most important feature is gone.
I'm often selecting cell/rows for further analysis and copying, but when I have to select tens of them it can happen that I will select something wrong.
(I'm selecting using CTRL and mouse Click). But when I want to unselect my mistake I cannot. There is no such feature in Excel 2013? How come feature that is available everywhere is not in Excel 2013. Maybe I'm wrong and missing something, but I cannot unslect single cell/row without loosing whole selection.


This has been the case with all versions of Excel.

 

Chip Pearson has a couple of macros that you can use to unselect a cell or groups of cells.

 

Sub UnSelectActiveCell()
Dim rng As Range
Dim FullRange As Range
'Chip Pearson
If Selection.Cells.Count > 1 Then
    For Each rng In Selection.Cells
        If rng.Address <> ActiveCell.Address Then
            If FullRange Is Nothing Then
                Set FullRange = rng
            Else
                Set FullRange = Application.Union(FullRange, rng)
            End If
        End If
    Next rng

    If FullRange.Cells.Count > 0 Then
        FullRange.Select
    End If
End If

End Sub


Sub UnSelectActiveArea()
'Chip Pearson
Dim rng As Range
Dim FullRange As Range
Dim Ndx As Integer
If Selection.Areas.Count > 1 Then
    For Each rng In Selection.Areas
        If Application.Intersect(ActiveCell, rng) Is Nothing Then
            If FullRange Is Nothing Then
                Set FullRange = rng
            Else
                Set FullRange = Application.Union(FullRange, rng)
            End If
        End If
    Next rng
    FullRange.Select
End If

End Sub

 

Gord

Did this solve your problem?

Sorry this didn't help.



 
Question Info

Views: 58,286 Last updated: June 14, 2018 Applies to: