Guest1,
Зависит от данных на листе. Если только значения(без формул), то можно так:
Выделяем нужный диапазон-> F5-> Выделить-> Константы.
Если только формулы, то:
Выделяем нужный диапазон-> F5-> Выделить-> Формулы.
По-другому только макросом(это если данные смешанные):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim rR As Range, rTmp As Range
On Error Resume Next
Set rTmp = Selection.SpecialCells(2)
If Not rTmp Is Nothing Then Set rR = rTmp
Set rTmp = Selection.SpecialCells(-4123)
If Not rTmp Is Nothing Then
If rR Is Nothing Then
Set rR = rTmp
Else
Set rR = Union(rR, rTmp)
End If
End If
If Not rR Is Nothing Then rR.Select
