Удаление всех строк с одинаковыми данными в столбце

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление всех строк с одинаковыми данными в столбце (Макросы Sub)

artsanox

Дата: Воскресенье, 08.12.2013, 17:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 6 ±

Замечаний: 0% ±

Доброго всем дня!
Помогите решить вопрос.
Как удалить все строки из базы, имеющие одинаковые значения, согласно выбора значения из элемента управления ComboBox.

Т.е. при выборе значения в ComboBox должны удалиться из базы все строки, имеющие данное значение, с подтверждением на удаление. База находится на скрытом листе. Файл прилагаю.

К сообщению приложен файл: 3758639.xlsm (40.4 Kb)

Ответить

SkyPro

Дата: Воскресенье, 08.12.2013, 18:10 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub del()
Dim x
Dim i&
Dim delrange As Range, vbr
x = База.Range("A1:A" & База.[a65535].End(xlUp).Row).Value

For i = 1 To UBound(x)
     If x(i, 1) = Сводная.[j2].Value Then
         If delrange Is Nothing Then
         Set delrange = База.Cells(i, 1)
         Else
         Set delrange = Union(delrange, База.Cells(i, 1))
         End If
     End If
Next

If delrange Is Nothing Then
     MsgBox "Нет подходящих строк"
     Exit Sub
End If

vbr = MsgBox(prompt:="Удалить строки?", Buttons:=vbYesNo)
If vbr = vbYes Then
         delrange.EntireRow.Delete
End If
Set delrange = Nothing
End Sub

[/vba]

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Воскресенье, 08.12.2013, 18:11

Ответить

artsanox

Дата: Воскресенье, 08.12.2013, 19:06 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 6 ±

Замечаний: 0% ±

Великолепно SkyPro, спасибо, то что надо. Есть правда некоторый нюанс. Возможно ли как-то сделать, чтоб в combobox цифры отображались в формате 0001, 0002 и т.д., а не 1, 2. И после удаления строк, данный номер в combobox не отображался вообще. Т.е. если в базе были удалены строки с номером 13, то этот номер в combobox не отображался.

Ответить

artsanox

Дата: Воскресенье, 08.12.2013, 20:11 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 6 ±

Замечаний: 0% ±

Все спасибо, разобрался.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление всех строк с одинаковыми данными в столбце (Макросы Sub)

Страница 1 из 1
1