Привет, всем! Есть таблица, образец во вложении. Стоит задача такая: в столбце "В" найти значения "к=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