Excel VBA, чтобы найти максимальное значение ячейки в столбце и удалить все строки под ним

У меня есть сотни файлов .csv (с данными в столбцах A и B) для очистки, и я думаю, что макрос будет полезен для быстрой обработки этих данных.

Цель кода – найти ячейку с максимальным значением в столбце A и удалить все строки под ней

До сих пор мой код

Sub DeleteRowAfterRange() Dim maxValue As Long Set maxValue = Application.WorksheetFunction.Max(Columns("A")) With Sheets("Sheet1") .Rows(maxValue & ":" & UsedRange.Rows.Count).Delete End With End Sub 

Я запускаю макрос в редакторе VB и вижу компиляцию Error: Object Required, пока эта часть кода выделена

 maxValue = 

в линии

 Set maxValue = Application.WorksheetFunction.Max(Columns("A")) 

Я просматривал различные форумы и находил вопросы, похожие на мои, но я недостаточно знаком с синтаксисом, чтобы выяснить, что проблема в моем коде. Я был бы очень признателен за любую помощь, и я хотел бы узнать, как правильно пересмотреть этот код

Вы не Set длинный, это не объект.

Функция Max не возвращает местоположение, а фактическое число.

Мы можем использовать Match для числа, чтобы вернуть строку.

 Sub DeleteRowAfterRange() Dim maxValue As Long With Sheets("Sheet1") maxValue = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(.Range("A:A")), .Range("A:A"), 0) .Rows(maxValue & ":" & .UsedRange.Rows.Count).Delete End With End Sub 
Interesting Posts

Как сделать многострочное текстовое поле заполнить разные строки

Число, которое нужно увеличить, а затем сбросить с каждой датой

дважды повторяя один и тот же столбец с разными критериями в линейной функции

Excel VBA игнорирует скрытую строку и массовое обновление из диапазона ячеек (обновление только для фильтрованной ячейки в Excel)

Как обрабатывать отсутствующий узел xml в макросе excel

экспортировать имена файлов PDF в папку Excel

Ошибка метода открытия объекта _connection

Добавление новой таблицы в Excel с помощью макроса / VBA

Перевернутая зеркальная колонка в Excel

Как создать файл excel в xml

Как изменить цвет фона ячейки на основе другого значения ячейки VBA

Заполнение данных Excel из вкладки в другую вкладку

Копирование и вставка отдельных ячеек в VBA

Как обратиться к рабочему листу с данными из массива

VBA> UserForm> введите массив строк через любой элемент управления

Давайте будем гением компьютера.