Public Sub qwe()
Dim ColValue As Range, RowValue As Range, c As Integer, r As Long, MyRange As Range
Set ColValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
c = ColValue.Column
Set RowValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
r = RowValue.Row
Set MyRange = Range(Cells(1, 1), Cells(r, c))
MyRange.Select
End Sub
Нужно переделать так, чтобы ColValue считал только константы. заменить LookIn:=xlValues на xlConstants не помогло.
cokos92, сарказм здесь неуместен, т.к. сбивает с толку тех, кто пытается помочь Вам. Столбец и строку последней константы можно определить так:
Код
Public Sub qwe()
Dim rMax As Long, cMax As Long, i As Long, MyRange As Range
For Each MyRange In Cells.SpecialCells(xlCellTypeConstants).Areas
' MyRange.Select
i = MyRange.Row + MyRange.Rows.Count - 1
If i > rMax Then rMax = i
i = MyRange.Column + MyRange.Columns.Count - 1
If i > cMax Then cMax = i
Next
Set MyRange = Range(Cells(1, 1), Cells(rMax, cMax))
MyRange.Select
End Sub