|
Např:
Dim FirstRow As Long
Dim LastRow As Long
Dim FirstCol As Integer
Dim LastCol As Integer
FirstRow = ActiveSheet.Cells.Find(What:=".10.", _
SearchDirection:=xlNext, _
SearchOrder:=xlByRows).Row
FirstCol = 3
LastCol = 10
LastRow = ActiveSheet.Cells.Find(What:=".10.", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
ActiveSheet.Range(Cells(FirstRow, FirstCol), _
Cells(LastRow, LastCol)).Select
End SubNevím, jak to má být se sloupci.
|