Excel удалить строку миф excel

VBA Delete Entire Row or Column

In this Article

This tutorial will demonstrate different ways to delete rows and columns in Excel using VBA.

Delete Entire Row or Column

To delete an entire row in VBA use this line of code:

Notice we use the Delete method to delete a row.

Instead of referencing the Rows Object, you can reference rows based on their Range Object with EntireRow:

Similarly to delete an entire column, use these lines of code:

Delete Multiple Rows or Columns

Using the same logic, you can also delete multiple rows at once:

Notice here we reference the specific row and column numbers / letters surrounded by quotations.

Of course, you can also reference the EntireRow of a range:

Note: The examples below only demonstrate deleting rows, however as you can see above, the syntax is virtually identically to delete columns.

Delete Blank / Empty Rows

Delete Row if Cell is Blank

Delete Row Based on Cell Value

More Delete Row and Column Examples

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Delete Duplicate Rows

This code will delete all duplicate rows in a range:

Notice we set Columns:=2. This tells VBA to check both the first two columns of data when considering if rows are duplicates. A duplicate is only found when both columns have duplicate values.

If we had set this to 1, only the first row would’ve been checked for duplicate values.

Delete Table Rows

This code will delete the second row in a Table by referencing ListObjects.

Delete Filtered Rows

To delete only rows that are visible after filtering:

Delete Rows in Range

This code will delete all rows in range:

Delete Selected Rows

This code will delete all selected rows:

Delete Last Row

This will delete the last used row in column B:

By changing 2 to 1, you can delete the last used row in column A, etc.:

Delete Columns by Number

To delete a column by it’s number, use a code like this:

VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

Источник

Пример макроса для вставки и удаления строк или столбцов на нескольких листах в Excel

Аннотация

Эта статья содержит пример макроса Microsoft Visual Basic для приложений (вспомогательная процедура), который можно использовать для вставки или удаления строк или столбцов на нескольких листах в Microsoft Excel.

Дополнительная информация

Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут объяснить функциональность отдельной процедуры. обязаны изменять примеры для реализации дополнительных возможностей или удовлетворения требований конкретных пользователей. Чтобы вставить или удалить строки или столбцы на нескольких листах, используйте команду For Each. Next statement для циклического прохода по всем необходимым листам или выберете строки или столбцы перед выполнением вставки или удаления.

Приведенные ниже примеры макросов работают только с непрерывным диапазоном столбцов или строк.

Пример макроса с использованием цикла для вставки строк на несколько листов

Пример макроса для выбора столбца и вставки нового столбца

Следующий пример макроса выбирает весь столбец перед вставкой новых столбцов:

Источник

Как в excel удалить нужную строку через VBA

7 ответов

Конечно можно. Ставишь на запись макрос, выполняешь какие нужно действия(удаление строки), останавливаешь запись. Открываешь Макросы->Изменить и смотришь какой код получился.
Будет примерно так:

Вообще-то, при удалении строки необходимо уменьшать счётчик, ибо в противном случае могут остаться строки, содержащие «-» (разумеется, если «-» содержатся в смежных ячейках) или начать удаление снизу вверх, т.е.

Private Sub Test()

Application.ScreenUpdating = False
Dim rw&
For rw = 100 To 1 Step -1
If Cells(rw, 1) = «-» And Cells(rw, 2) = «-» Then Rows(rw).Delete
Next
Application.ScreenUpdating = True

Чуть не забыл 🙂 если в дальнейшем потребуется проверять наличие «-» в большем количестве столбцов, чем сейчас, то вместо увеличения And или дополнительного цикла по столбцам, можно программно воспользоваться стандартной функцией рабочего листа =СЧЁТЕСЛИ() (см. листинг)

Private Sub Test2()

Dim rw&, ws As Worksheet
Set ws = ActiveSheet

Источник

Delete a row in Excel VBA

I have this piece of code which finds the excel row of an item from a list and deletes the items from a list. What I want. is to delete the Excel row as well.

The code is here

Where I added ws.Range(Rand,1).EntireRow.Delete is where I want to delete the entire row but I don’t know how to do it. What I want. if it finds the same value in a cell like in some selected item of my list to be able to remove both the entire row in excel and the item from the listbox. It works to remove the item from the listbox but I don’t know how to remove the row as well

4 Answers 4

Chris Nielsen’s solution is simple and will work well. A slightly shorter option would be.

. note there is no need to specify a Shift when deleting a row as, by definition, it’s not possible to shift left

Incidentally, my preferred method for deleting rows is to use.

. in the initial loop. I then use a Sort function to push these rows to the bottom of the data. The main reason for this is because deleting single rows can be a very slow procedure (if you are deleting >100). It also ensures nothing gets missed as per Robert Ilbrink’s comment

You can learn the code for sorting by recording a macro and reducing the code as demonstrated in this expert Excel video. I have a suspicion that the neatest method (Range(«A1:Z10»).Sort Key1:=Range(«A1»), Order1:=xlSortAscending/Descending, Header:=xlYes/No) can only be discovered on pre-2007 versions of Excel. but you can always reduce the 2007/2010 equivalent code

Couple more points. if your list is not already sorted by a column and you wish to retain the order, you can stick the row number ‘Rand’ in a spare column to the right of each row as you loop through. You would then sort by that comment and eliminate it

If your data rows contain formatting, you may wish to find the end of the new data range and delete the rows that you cleared earlier. That’s to keep the file size down. Note that a single large delete at the end of the procedure will not impair your code’s performance in the same way that deleting single rows does

Источник

Excel vba удалить строку

удалить строку целиком (VBA)

​Смотрите также​​ -5 -7​ Is Nothing Rows(Columns(1).Find(«*итого*»).Row).Delete​
​ «Итого по корреспондирующему​А каким макросом​
​ нравится, в модуле​ отследить удаление строки​
​ (имея в виду​ это обсуждалось (в​ проверю все ячейки​
​Dim iColumns As​Dim j As​
​ «» Then​: при удалении строки​ Rows(rw).Delete​ с группой.​ ​ т.ч. и у​ строки на empty.​ Integer​ Long​i = i + 1​ сдвигаются, поэтому цикл​С массивами чуть​5. Как я​ Rows(rw).Delete ‘номер 9​

​: всем доброго времени​​: Макрос удаляет в​bobosafed​Очень надо!​ данного макроса?​ кнопку (Лист или​
​Как повеситься на​ Лист), и запустил​ буржуев). Ни в​ А вот как​With Sheets(«Недостача»).Range(«A2»).CurrentRegion​Dim i As​arr(i, 1) =​ лучше писать так:​

​ сложнее в понимании,​​ уже сказал -​ — 9-й столбец​

​ суток​​ том числе и​: Огромное преогромное спасибо,​Helen_fire​И еще. Как​ UserForm) этот код:​ событие удаления строки​ на главное окно​

​ одном из топиков​​ с удалением выкручиваться?​
​iColumns = .Columns.Count​ Long​ elem​For .Cells(Rows.Count, 1).End(xlUp).Row​

​ но на Вашем​​ использовать переменную, а​Hugo​извините, что вас​ строки, у которых​ все получилось. ​: Все очень просто.​ сделать чтобы перед​

​Private Sub CommandButton1_Click()​​ я не нашел​ Книги. Добавил строчку.​
​ решения не найдено.​ Есть идеи гарантированно​
​ReDim arr2(1 To​
​Dim ii As​End If​ To 2 Step​ примере было бы​ не 100000 раз​: То что там​ беспокоил​ в столбце «A»​bobosafed​ Можно взять для,​ выполнением 1-го макроса​
​ Dim wsh as​ нигде.Если сможете найти​ Сходил в Журнал,​ Мне лично эта​
​ установить факт события?​ .Rows.Count, 1 To​ Long​Next​
​ -1​ так:​ делать CDate(«20.11.2013″​ дата — это​
​у меня такая​ пустые ячейки.​

​: Немного недоглядел -​​ в принципе «итого».​ (на удаление строки)​ Worksheet For Each​
​ буду благодарен за​ откинул строки, связанные​
​ задача, в общем-то,​Serg61​ iColumns)​Dim iColumns As​.ClearContents​
​. ​

​Private Sub Test()​​.​ ещё не факт.​ проблема​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Макрос1()​У меня из​ Это будет выглядеть​ выскакивало окно предупреждения​ wsh In Thisworkbook.Worksheets​
​ информацию!По мотивам приведённой​ с активацией меню,​ не нужна, но​: А почему не​arr1 = .Value​​ Integer​
​.Parent.Range(«C1»).Resize(i) = arr()​Next​ Application.ScreenUpdating = False​6. Зачем непременно​
​ Видали мы всяких​есть таблица и​Dim arr(), lr​

​ строки удаляется слово​​ так:​ с определенным текстом​ wsh.Rows(13).Delete Next End​ Comanche ссылки http://www.experts-exchange.com/Appl. _20783307.html​
​ тултипов под кнопками​ я уже ‘завёлся’.​ защита листа?​For j =​
​With Sheets(1).Range(«A2»).CurrentRegion​End With​LightZ​ Dim rw As​ удалять строки? Может​ дат. Пока не​ в 9-й колонке​ As Long, i​ «итоги», а мне​Rows(Columns(1).find(«*итого*»).row).Delete Shift:=xlUpИли прописать​Казанский​ Sub​ вижу наиболее пока​ инструментальной панели и​ Очень интересно было​Пара кнопок на​ 2 To .Rows.Count​iColumns = .Columns.Count​ikki​
​: удалять строки нужно​
​ Long, dDt As​

​ просто переложить данные,​​ докажете — не​ сущест. даты​
​ As Long, j​ надо чтоб удалена​
​ удаление каждого по​: Нужно запоминать содержимое​Казанский​ приемлемое решение:​
​ прочую ерунду. И​ бы ‘родить’ решение.​
​ понели (своей) добавить​
​If arr1(j, 3)​ReDim arr2(1 To​: разные способы -​ снизу вверх​
​ Date, avItems, lLastR​ затереть ненужное?​ поверю​
​больше 100 тыс.​ As Long​ была вся строка,​ отдельности:​ удаляемых строк. Можно​
​: Кнопку где? На​Dim ExcelSize as​ что же осталось?​ Но пока у​ строку и удалить​ = «» Then​ .Rows.Count, 1 To​ для разных целей.​
​Daulet​ As Long lLastR​P.S.Упустил — Dim​hk1209​ строк​

​Application.ScreenUpdating = False​​ у которой​Dim mas dim​ на отдельном скрытом​
​ листе, на форме,​ Integer ‘ count​
​ — управление скроллом​ меня ничего красивого​ строку.​i = i + 1​

​ iColumns)​​использование Delete медленно​: ikki, LightZ Спасибо!​ = Cells(Rows.Count, 9).End(xlUp).Row​ rw As Date​
​: Sanja спасибо за​проблема такая: надо​
​lr = Columns(«A:B»).Find(What:=»*»,​
​в колонке А​ ind mas=array(«итого по​ листе, тогда получится​ на тулбаре, на​

Удаление строк VBA

​ of real rows​​ да repaint-ы. Есть​
​ не выходит. Манипуляции​Причем в этом​For ii =​arr1 = .Value​ в т.ч. потому,​

​AKSENOV 048​
​ If lLastR​
​ — это ошибка!​
​ подсказку​ удалить строку целиком,​ LookIn:=xlFormulas, LookAt:= _​
​ написано «Итоги» ?​ счету*»,»итого по отделу*»,​
​ сохранить формулы и​
​ рабочем столе, на​
​ Dim SomeArray as​
​ ещё postmessage-строки, но​
​ с Spy++ ничего​

​ случаее не надо​​ 1 To iColumns​For j =​ что Ex корректирует​

​: вот такой вариант​P.S. И оформляйте​hk1209​
​в таблице примерно​
​ если дата меньше​

​xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious,​​Helen_fire​ и т.д.) for​

​ форматы.​​ заборе вашей дачи?​

​ Variant ‘ for​​ они повторяются многократно,​

​ пока не дали.​
​ ломать голову какую​
​arr2(i, ii) =​

​ 1 To .Rows.Count​ все формулы, форматы​Sub io()​ коды тегами. Значок​: Sanja & Hugo​

​ 100 тыс строк​​ 20.11.2013 г. и​ MatchCase:=False _​

​: вообще-то этим кодом​​ ind =1 to​If MsgBox(«Строка «​В любом случае​ storeing last user​
​ так что это​

​ Перерыл весь Инет​​ строку пользователь добавляет.​ arr1(j, ii)​If arr1(j, 3)​ и прочие свойства​Sheets(«Недостача»).UsedRange.Offset(1).Columns(«C»).SpecialCells(xlBlanks).Rows.Delete​ «» среди кнопок​
​ спасибо за подсказку​использую следующий код:​ поднимать на вверх​, SearchFormat:=False).Row​ удаляется строка целиком.​ кол-во пунктов удаления​ & n &​
​ кнопке надо будет​ Selection Private Sub​ не то, что​ — тоже без​

​daniel default​
​Next​
​ <> «» Then​ ячеек — примечания,​

​End Sub​ вверху при создании​
​ и потраченное драгоценное​Private Sub Test()​написал следующий код,​
​arr() = Range(«A1:A»​Gopronotmore​
​ Rows(Columns(1).find(mas(ind-1)).row).Delete Shift:=xlUp Next​ » будет УДАЛЕНА​
​ назначить этот код.​
​ Worksheet_Change(ByVal Target As​ ищем.​
​ толку.​
​: В этом случае​
​End If​
​i = i + 1​
​ УФ, . ​

​правде если пустых​​ сообщения.​ время​
​ Application.ScreenUpdating = False​ но неработает, прошу​ & lr).Value​: Добрый день формучане!​bobosafed​ во всех листах.»​nivybuct​
​ Range) ‘for additions​Получается, что выбор​2SlavaRus: вы пишите:​ придётся контролировать действия​Next​For ii =​вариант с массивом​ ячеек не будет,​Hugo​Hugo переписал код​ Dim rw As​

​ вашей подсказки​​For i =​ Вопрос вот мучаюсь​

​: По первой формуле​​ & vbLf &​
​: Но удаляется только​ If UsedRange.Rows.Count >​
​ пункта меню отловить​ ‘Если да, то​ юзера и в​Sheets(«Недостача»).Range(«A2:C» & Cells(Rows.Count,​ 1 To iColumns​

​ действительно много быстрее,​
​ появиться ошибка. тогда​: Супербыстрое удаление строк​ по вашим замечаниям,​ Date For rw​Private Sub Test()​ 1 To UBound(arr,​

​ с таблицей в​​ получается, но строчки​ _ «Продолжить?», vbExclamation​ строка №13?​ ExcelSize Then DoSomethingInAddCase(UsedRange.Rows.Count​ можно, но его​

​ проблему можно решить!’.​​ других, не интересующих​ 1).End(xlUp).Row).ClearContents​arr2(i, ii) =​ но с формулами​

​ можно добавить обработчик​
​ от ZVI есть​
​ к сожалению не​ = 100000 To​
​ Application.ScreenUpdating = False​ 1)​
​ которой много значений.​ с разными текстами​
​ + vbDefaultButton2 +​mc-black​

​ — ExcelSize) ExcelSize​
​ нажатие никаких мессаджей​
​ КАК? Поделитесь. ​ меня зонах, а​Sheets(«Недостача»).Range(«A2»).Resize(i, iColumns).Value =​
​ arr1(j, ii)​
​ и форматами придется​ ошибок.​
​ тут:​ работает​
​ 1 Step -1​
​ Dim rw As​If (IsNumeric(arr(i, 1))​
​Задача вот в​ за один клик​
​ vbYesNo) = vbNo​
​: Private Sub CommandButton1_Click()​
​ = UsedRange.Rows.Count ‘for​
​ не посылает. Ничего​Итак, что имеем:​
​ это ненужный код,​ arr2​
​Next​

​ распрощаться. а уж​​Daulet​Можно использовать и​Private Sub Test()​ If Cells(rw, 9)​ Date For rw​ = False) Or​ чем. Есть список​ не удаляются. Например,​ Then Exit Sub​ Dim wsh As​ deletions ElseIf UsedRange.Rows.Count​

​ удивительного — просто​​1. Удалить из​ время. Или я​End With​End If​ если на этот​: AKSENOV 048 Спасибо​

​ в этой задаче.​​ Dim rw As​

Как на VBA отловить удаление строки Excel?

​ субсчету» надо запускать​​ ситуация: на листе2​ строки», «Ввести число»,​ End If End​ можем отлавливать (а​ на ‘свои’.​ если юэаем Excel​

​ тогда удаляет и​​Sheets(1).Range(«A2»).Resize(i, iColumns).Value =​ результат может быть​ что надо НЕ​ даты​

​ xlCalculationManual Application.ScreenUpdating =​​есть ли у​ Rows(rw).Delete ‘номер 9​For j =​ со знаком -​ макрос два раза,​ таблица связана с​ 13) For Each​ Sub Private Sub​ по-другому и никак),​3. Через BeforeRightClick​

​ XP, то можно​​ ругается на строку​ arr2​
​ катастрофическим :)​ пустые ячейки удалять)​hk1209​ False For rw​
​ вас какие-то идеи​ — 9-й столбец​ i + 1​Как написать скрипт​

​ чтобы удалить эти​​ таблицей листа1. На​ wsh In ThisWorkbook.Worksheets​ Worksheet_SelectionChange(ByVal Target As​ то получится, что​ запретить popup-меню на​ защитить листь от​ (Ошибка 1004)​End With​

​KuklP​​ простите.​: The_Prist спасибо за​ = ActiveSheet.UsedRange.Row +​ для оптимизации данного​ Next Application.ScreenUpdating =​ To UBound(arr, 1)​ который при просмотре​

​ строки​​ листе3 — не​ wsh.Rows(n).Delete Next End​ Range) StoreTargetInSomeArray(Target) ‘​ будем запрещать нажатие​ листе.​

​ вставки строк, а​​->Sheets(«Недостача»).Range(«A2»).Resize(i, iColumns).Value =​KuklP​: Богдан, это с​
​SpecialCells(xlConstants, 1)​ потраченное драгоценное время​

​ ActiveSheet.UsedRange.Rows.Count — 1​​ кода?​ True End Subспасибо​If (IsNumeric(arr(j, 1))​ диапазона удалял строки​Во второй формуле​

​ связанная с другими​​ Sub​
​ I don’t now​
​ пункта меню. А​
​4. Манипуляции с​
​ остальное как бы​

​ arr2​​: Да хоть Do​ одним массивом:-)​LightZ​ и советы (включая​ To FirstRow Step​каждый раз кол-во​ за потраченное драгоценное​ = True) And​ которые в сумме​ — макрос ругается​ листами информация.​nivybuct​ how to realize​ тогда возникает резонный​ защитой листа.​ не защищать. ​спасибо Вам ну​ loop. Там в​LightZ​: ABC, если Вы​ код)​ -1 If Cells(Rows.Count,​ строк разные бывает​
​ время​ (IsEmpty(arr(j, 1)) =​ дают 0 . ​ на строку​
​Нужны два макроса:​
​: Я плохо сформулировал​ correctly analog of​ вопрос: на фига​
​5. Манипуляции с​daniel default​
​ туда добавлю Error​ любом случае один​: KukLP​
​ будете удалять строки​Hugo — спасибо​
​ 9).End(xlUp).Row

Удаление строки с определенным порядковым номером по всей книге excel

​Daulet​​ быстрей), тогда да.​ikki​ скорость 00:00 сек,​: Здравствуйте!​​прошу вашей помощи​​Sanja​

​ в данном случае​​Exit For​ квитовать одну строку​ меня такая строка​ с сохранением целостности​ строку.​

​ порядковым номером​​ ещё ссылка, где​ мой взгляд, тут​ или удаления строки?​: LightZ охо прекрасно​KuklP​Исходил из скорости​

​ а выполнение вышеуказанных​​Хочу удалить строк​спасибо за понимание​
​: Для ускорения выполнения​ к дате, а​End If​ +10 с тремя​ работает.из индекса вычитается​
​ таблиц (форматирование, пересчет​Выделяю ее​по всей книге​ мне на этот​ нет. Красивым было​Если да, то​

​ спасибо Вам!​​: Теперь, да. Только​ выполнения макроса, т.к.​ кодов так и​ не пустых ячеек​The_Prist​
​ кода отключите автоматический​ вернее справа может​End If​

​ строками -3, -6,​​ 1, поскольку нумерация​ формул), но только​

​, запускаю нужный макрос.​​excel?​ же вопрос отвечала​ бы решение с​ проблему можно решить!​daniel default​ и для этого​ примера нет и​ не дождался :(​ столбце C, или​: Cells(Rows.Count, 9).End(xlUp).Row

Удаление определенных строк в Excel

​With Sheets(«Недостача»)​​ 0. Как минимум​ номер последней строки​
​ дата​On Error Resume​ дают одно значение,​ этот момент надо​эта музыка будет вечной?​
​mc-black​ Next End Sub​: Да, весьма толково​ — непонятно. Как​
​ решение красивее?​

​ листа не годится)​​: LightZ Ваш последний​ но скорее всего​Dim arr()​For d =​ под конец ошибку​
​ с данными в​wowick​ Next​
​ просто нужно затереть​ учитывать.скиньте скрин ошибки.​ :D​: Private Sub CommandButton1_Click()​nivybuct​ ответила, ничего не​ уже говорил, Spy++​

​daniel default​​IgorTr​ код массивный замечателен,​ не оригинал, для​Dim i As​ 2 To .Cells(Rows.Count,​
​ получите.​ 9-м столбце:​: А сравниваете вы​Range(«A1»).Resize(UBound(arr, 1), 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete​ повторы грубо говоря​А насчет первого​bobosafed​
​ Dim wsh As​: Большое спасибо за​ скажешь.​
​ мне не помог.​

​: http://www.relib.com/forums/topic.asp?id=742255​​: ИМХО больной вопрос.​
​ но чуть исправил​ которого делается макрос​ Long​ 1).End(xlUp).Row​Hugo совсем иное​Cells(Rows.Count, 9).End(xlUp).Row​ ее с ТЕКСТОМ​On Error GoTo​ есть 3 числа​ варианта:я просто скидывала​: Помогите чайнику! Я​ Worksheet, n As​ быстрый ответ! Но​Склоняюсь я к​ Я отрубил в​
​http://www.relib.com/forums/topic.asp?id=798944​ Красиво сделать ЭТО​Dim arr1()​ :)​With Sheets(1).Range(«C1:C» &​If .Cells(d, 3).Value​ советовал..​
​Hugo​ «20.11.2013». В экселе,​
​ 0​ 3 5 7​ вариант строки, а​

​ только учусь​​ Long n =​ мне нужно создать​

​ тому, что это,​​ нём фиксацию сообщений​
​http://www.relib.com/forums/topic.asp?id=747125​ мне пока не​Dim arr2()​LightZ​ Cells(Rows.Count, 3).End(xlUp).Row)​ <> «» Then​
​До начала цикла:​: 4. Обрабатывать массивы,​

​ как и во-многих​​Application.ScreenUpdating = True​ и есть 3​

VBA удаление перекрывающихся строк (Макросы/Sub)

​ так его тоже​​Надо в таблице​ Selection.Row For Each​ кнопку, которая бы​ наверное, наилучший вариант​
​ типа ‘Mouse’ и​http://www.experts-exchange.com/Applications/MS_Office/Excel/Q_20783307.html​ удалось :-(​Dim j As​: вот так будет​ReDim arr(1 To​.Rows(d).EntireRow.Delete​
​dim dDt as​ а не ячейки​ других средах программирования​MsgBox «Готово!», vbInformation​ числа -3 -5​
​ надо было ставить​

​ Excel удалить строки​​ wsh In ThisWorkbook.Worksheets​ удаляла выделенную строку​ решения задачи. ​ ‘Keyboard’ (чтоб не​http://www.excel-center.com/mailing/137701h.htm​daniel default​ Long​ лучше, учитывая все​ .Cells.Count, 1 To​End If​

​ Date dDt =​​ — на листе​ в кавычках подразумевает​End Sub​ -7 если есть​ в цикл, и​ в графе А​ wsh.Rows(n).Delete Next End​ по всей книге.​Там осталось несколько​ таким здоровым был​daniel default​: Ну хорошо, пусть​Dim i As​ данные, с двумя​ 1)​Next​

​ CDate(«20.11.2013»)И уже в​​ только удалять строки,​ текстовый формат.​Gopronotmore​ совпадение, то удалить​ потом использовать FindNext.​
​ в которых указаны​
​ Sub​mc-black​ неясностей. Если решишь​ журнал), затем настроил​
​: 2IgorT: да уж,​
​ не слишком красиво.​ Long​
​ массивами:​For Each elem​
​End With​
​ цикле:​ да и тут​
​Sanja​: Да вы просто​ строки где есть​
​А лучше сделайте​ тексты :​nivybuct​: Дежурный экстрасенс вышел​
​ (или уже знаешь​
​ на фиксацию сообщений​
​ ‘больной вопрос’. Я​ С вставкой ещё​Dim ii As​
​Dim arr1()​ In .Value​End Sub​If Cells(rw, 9)​
​ можно это делать​: Попробуйте так​ бог! Спасибо огромное​
​ числа 3 5​ цикл еще короче​
​»Итого по счету»,​: Спасибо! То что​
​ покурить.​
​ как), напиши, пожалуйста,​
​ как окна, так​
​ предыдущим сообщением перечислил​
​ куда ни шло:​
​ Long​
​Dim arr2()​If elem <>​
​ikki​

​ нужно.​​Кнопку поместить где​ сюда.По событию CHANGE​ и его ‘детей’​

Источник