Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти последнюю строчку и удалить все ниже
 
#1
29.12.2019 18:32:43
Всем привет !
В VBA не силен... нужен очень простой макрос.
Нужно найти последнюю заполненную ячейку в столбце "А" и удалить все строки ниже.
Потом найти последнюю заполненную ячейку в 1 строке и удалить все столбцы, что правее нее.
Спасибооо
 
 
 
#2
29.12.2019 18:34:34
Malkov111123, это всё на бумажке или у Вас есть Excel-файл?
 
 
 
#3
29.12.2019 18:36:31
Юрий М,
 
 
 
#4
29.12.2019 18:52:42
А что сразу Юрий М? )) См. вариант:
Код
Sub Macro1()
Dim LastRow As Long, LastColumn As Long, LastCol As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastrw = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    LastCol = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    Range(Cells(LastRow + 1, 1), Cells(lastrw, 1)).EntireRow.Delete
    Range(Cells(1, LastColumn + 1), Cells(1, LastCol)).EntireColumn.Delete
End Sub
 
 
 
#5
29.12.2019 18:58:25
Юрий М, Крутяк, но удаляет и то, что последнее заполнено.

А надо что бы находил и удалял все что ниже и правее.

Если нажать много раз, в итоге он удалит всю таблицу )  
Изменено: Malkov111123 - 29.12.2019 19:00:03
 
 
 
#6
29.12.2019 19:02:48
Накосячил: не подстраховался.
Код
Sub Macro1()
Dim LastRow As Long, LastRw As Long, LastColumn As Long, LastCol As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    LastRw = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    LastCol = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
    Range(Cells(LastRow + 1, 1), Cells(LastRw, 1)).EntireRow.Delete
    Range(Cells(1, LastColumn + 1), Cells(1, LastCol)).EntireColumn.Delete
End Sub
 
 
 
#7
29.12.2019 19:03:58
Код
Sub DelAfter()
  Dim n&
  n = Cells(Rows.Count, 1).End(xlUp).Row
  Rows(n + 1).Resize(Rows.Count - n).Delete
  n = Cells(1, Columns.Count).End(xlToLeft).Column
  Columns(n + 1).Resize(, Columns.Count - n).Delete
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#8
29.12.2019 19:04:23
Может так
Код
Sub Perenos()
Range("A1").CurrentRegion.Copy
Worksheets.Add
Range("A1").PasteSpecial
Range("A1").Select
Worksheets("Лист1").Delete
End Sub
 
 
 
#9
29.12.2019 19:15:40
Всем спасибо.
Решение найдено.
Пока ждал появились еще идеи. Наверное в платный надо ? Или кто-то возьмется сделать из тут присутствующих  ?
Там пару проверок еще нужно по самой таблице
Изменено: Malkov111123 - 29.12.2019 19:21:11
 
 
 
#10
29.12.2019 19:34:47
см. личные сообщения. решим
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
29.12.2019 19:34:49
Цитата
Malkov111123 написал:
Пока ждал появились еще идеи. Наверное в платный надо ?
В платный необязательно, зависит от сложности "идей"; а вот новые темы на каждую "идею" - надо.
 
 
 
#12
29.12.2019 19:35:34
Kuzmich,Интересное решение. Но тут мешает "Лист1", если нажать повторно, естественно, он его не найдет и не сможет удалить
 
 
 
#13
29.12.2019 19:42:19
Цитата
Malkov111123 написал:
Интересное решение
только мешает не лист, а обязательное требование непрерывного диапазона.
По вопросам из тем форума, личку не читаю.
 
 
 
#14
29.12.2019 19:44:22
Цитата
Malkov111123 написал:
Интересное решение
заполните в исходном листе чем-нибудь 3 ячейки: А1, В2 и С3
судя по тому, что написано в #1 после всех удалений должна остаться только А1
а что оставит интересное решение?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#15
29.12.2019 19:44:28
Malkov111123,
Добавьте в конце макроса строчку
Код
ActiveSheet.Name = "Лист1"
 
 
 
#16
29.12.2019 19:50:31
Kuzmich, не в этом дело. что будет для

?
По вопросам из тем форума, личку не читаю.
 
 
 
#17
29.12.2019 19:56:14
БМВ,
Я ориентировался на пример из сообщения #3
 
 
 
Страницы: 1
Наверх