Привет, всем! Есть таблица, образец во вложении. Стоит задача такая: в столбце "В" найти значения "к=34", например. в столбце А наименование товара 'яблоки'. Если для товара есть цена, удовлетворяющая нашему условию, то удаляем весь товар. Примет: яблоки-34, удаляем все яблоки, не имеет значение какая цена. При этом удалять, если товар идет подрят(на примере более наглядно) Как это реализовать ума не приложу. Буду благодарен за помощь!
Привет, всем! Есть таблица, образец во вложении. Стоит задача такая: в столбце "В" найти значения "к=34", например. в столбце А наименование товара 'яблоки'. Если для товара есть цена, удовлетворяющая нашему условию, то удаляем весь товар. Примет: яблоки-34, удаляем все яблоки, не имеет значение какая цена. При этом удалять, если товар идет подрят(на примере более наглядно) Как это реализовать ума не приложу. Буду благодарен за помощь!exelskatyazhelyi
Sub ertert() Dim x, y(), i&, s$, j&, rw&, k&, bu As Boolean Const Pr As Long = 34
With Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row + 1) x = .Value ReDim y(1 To UBound(x), 1 To 2) For i = 1 To UBound(x) If x(i, 1) <> s Then If bu Then For j = rw To i - 1 k = k + 1 y(k, 1) = x(j, 1): y(k, 2) = x(j, 2) Next j End If rw = i: s = x(i, 1): bu = True End If If x(i, 2) = Pr Then bu = False Next i .ClearContents If k > 0 Then .Resize(k).Value = y() End With End Sub
[/vba]
[p.s.]exelskatyazhelyi - как произносится по-русски? :)[/p.s.]
exelskatyazhelyi, привет, попробуйте так:
[vba]
Код
Sub ertert() Dim x, y(), i&, s$, j&, rw&, k&, bu As Boolean Const Pr As Long = 34
With Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row + 1) x = .Value ReDim y(1 To UBound(x), 1 To 2) For i = 1 To UBound(x) If x(i, 1) <> s Then If bu Then For j = rw To i - 1 k = k + 1 y(k, 1) = x(j, 1): y(k, 2) = x(j, 2) Next j End If rw = i: s = x(i, 1): bu = True End If If x(i, 2) = Pr Then bu = False Next i .ClearContents If k > 0 Then .Resize(k).Value = y() End With End Sub
[/vba]
[p.s.]exelskatyazhelyi - как произносится по-русски? :)[/p.s.]nilem
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
