[решено] как в экселе автоматически удалить строки

[vanoman]

Подскажите пож-та. Мне надо удалить строки с номера 65000 по 400 000 . Мышкой все выделять долго. может есть функция, которая заданный интервал строк удаляет?

[Iska]

Есть ;). Надо только её написать:
Sub DeleteRows()
ThisWorkbook.ActiveSheet.Rows.Item("65000:400000").Delete
End Sub

вставить в модуль «ThisWorkBook» («ЭтаКнига») искомой рабочей книги, сделать активным потребный рабочий лист и исполнить процедуру.

[vanoman]

Iska, работает))) респект

[Iska]

vanoman, поскольку у нас всего одна строчка («ThisWorkbook.ActiveSheet.Rows.Item("65000:400000").Delete»), в принципе, можно попробовать использовать окно «Immediate» — Alt-F11, Ctrl-G (ежели таковое осталось в Excel 2013), разумеется, заменив «ThisWorkbook» на «ActiveWorkbook» и сделав предварительно активными потребные рабочую книгу и лист.

[vanoman]

Iska, а может ещё чуть - чуть поможете
взять этот файл
можно чтобы с 11-50 ячейку , там 73 столбца, надо из каждого столбца удалить 20 чисел, но не сплошняком , например с 11-31 ячейку. а рандомно т.е. то 11 ячейка, то 20 и так далее.

[Iska]

«Удалить» — понимать как «очистить»? «20» — стабильное значение или произвольное? Диапазон «A11:BU50» — стабильный диапазон или произвольно указан? Все ячейки диапазона заполнены или могут быть и пустые?

Например, так:
Option Explicit

Sub ClearRandomCellsInSelectionByColumns()
Dim intCount As Integer

Dim objColumn As Range
Dim objRange As Range

Dim i As Integer

Dim objArrayList As Object


intCount = 20

Randomize Timer

Set objArrayList = CreateObject("System.Collections.ArrayList")

For Each objColumn In Selection.Columns
For Each objRange In objColumn.Rows
objArrayList.Add objRange
Next

For i = 1 To objColumn.Rows.Count - intCount
objArrayList.RemoveAt Int(objArrayList.Count * Rnd())
Next

For Each objRange In objArrayList
objRange.Clear
Next

objArrayList.Clear
Next

Set objArrayList = Nothing
End Sub

[vanoman]

«Удалить» — понимать как «очистить»? «20» — стабильное значение или произвольное? Диапазон «A11:BU50» — стабильный диапазон или произвольно указан? Все ячейки диапазона заполнены или могут быть и пустые? »

да, очистить. 20 это стабильное значение. указан произвольно) там все заполнены.
Макрос работает,как часы:)