[a_axe]

В общем не знаю даже как описать то, что нужно сделать »

Честно говоря, из изменений вижу только фильтры.
Если вопрос в них - выделяете любую ячейку, жмете F5 - выделить - текущая область (либо выделяете мышкой), потом жмете ctrl+L и получаете фильтры и кучу других плюшек.
Если вопрос не в них - поясните пожалуйста, что вы хотите сделать.

[blackeangel]

a_axe,

Если вопрос не в них - поясните пожалуйста, что вы хотите сделать. »

Вопрос не в них. Если отмотать к наименованию кабель или жгут или провод, то будет видна разница между до и после. Просто реально не могу объяснить. У нас это называется дошлифовать, и все понимают,но человеку со стороны это не объяснить,поэтому я и показываю на примере живом.

[a_axe]

кабель или жгут или провод, то будет видна разница между до и после. »

насколько я понимаю, вы хотите заполнить пустые ячейки столбца "ПредвАрх" значением из предыдущей непустой ячейки, при условии что значение в ячейках "Наименование" также будет совпадать? Если да - что нужно делать с ячейками D2, D3, D9-D11, D16, D27, D34 и в соответствие с какими соображениями?

[blackeangel]

Не только в "ПредвАрх",но и в "Карточки". Пустые пропускать.Так как видно если нет в одном столбце,то есть в другом.

[a_axe]

Так как видно если нет в одном столбце,то есть в другом. »

В вашем примере - не всегда.
Могу предложить следующий вариант: вашу таблицу необходимо отформатировать как "умную" таблицу эксель:

жмете F5 - выделить - текущая область (либо выделяете мышкой), потом жмете ctrl+L »

Наименование заголовков должно быть как в вашем примере. Таблица должна иметь название "Таблица1" (изменить можно во вкладке "Конструктор" - Имя таблицы).
После этого запускаем макрос:

Код

Sub ins_art() Dim myCell As Range Dim i As Integer For i = 2 To Range("Таблица1").Rows.Count If Range("Таблица1[Карточки]").Rows(i) = "" And _ Range("Таблица1[ПредвАрх]").Rows(i) = "" And _ Range("Таблица1[Наименование]").Rows(i).Value = Range("Таблица1[Наименование]").Rows(i - 1).Value Then If Range("Таблица1[Карточки]").Rows(i - 1).Value <> "" Then Range("Таблица1[Карточки]").Rows(i).Value = Range("Таблица1[Карточки]").Rows(i - 1).Value Range("Таблица1[Карточки]").Rows(i).Interior.ColorIndex = 3 ElseIf Range("Таблица1[ПредвАрх]").Rows(i - 1).Value <> "" Then Range("Таблица1[ПредвАрх]").Rows(i).Value = Range("Таблица1[ПредвАрх]").Rows(i - 1).Value Range("Таблица1[ПредвАрх]").Rows(i).Interior.ColorIndex = 3 End If End If Next i End Sub

Код перебирает все ячейки столбцов "Карточки" и "ПредвАрх", если находит две пустые, стоящие рядом, проверяет что Наименование совпадает с Наименованием предыдущей строки, если да - проверяет над какой из ячеек непустая ячейка и копирует ее в текущую строку, помечая ячейку красным цветом в целях контроля. Форматирование нужно снять потом вручную.

[blackeangel]

a_axe, а почему все тоже самое нельзя сделать без "умной" таблицы?
В чем собсно её отличие от той что есть?

Так как видно если нет в одном столбце,то есть в другом. » В вашем примере - не всегда.

Пустые пропускать.

[a_axe]

все тоже самое нельзя сделать без "умной" таблицы? »

Собственно - можно. Чисто технически обращаться к таблице проще и нагляднее - независимо от того, добавляли ли вы туда строки или нет, есть ли данные на листе кроме этой таблицы или нет. Отформатировать ее можно так, что она вообще не будет отличаться от просто ячеек листа. Вопрос встречный - а какие соображения есть, чтобы не форматировать ее как умную таблицу?

В чем собсно её отличие от той что есть? »

В кучке дополнительных плюшек и вафелек, начиная от удобного форматирования, заканчивая структурированными ссылками на содержимое.

ЗЫ. Ячейки, не попадающие под условие - пропускаются.

Добавлено:
Например, если вы в середину таблицы вставите еще 17 столбцов, для умной таблицы программу менять не нужно - все как было, так и останется. А если программу написать для просто диапазона - придется проверять и корректировать все ссылки.

[blackeangel]

все тоже самое нельзя сделать без "умной" таблицы? » Собственно - можно. Чисто технически обращаться к таблице проще и нагляднее - независимо от того, добавляли ли вы туда строки или нет, есть ли данные на листе кроме этой таблицы или нет. Отформатировать ее можно так, что она вообще не будет отличаться от просто ячеек листа. Вопрос встречный - а какие соображения есть, чтобы не форматировать ее как умную таблицу? В чем собсно её отличие от той что есть? » В кучке дополнительных плюшек и вафелек, начиная от удобного форматирования, заканчивая структурированными ссылками на содержимое. ЗЫ. Ячейки, не попадающие под условие - пропускаются. Добавлено: Например, если вы в середину таблицы вставите еще 17 столбцов, для умной таблицы программу менять не нужно - все как было, так и останется. А если программу написать для просто диапазона - придется проверять и корректировать все ссылки.

А диапазон у нас простой вроде от 2 до последней не пустой строки строки.
А проверки через if,do while и тп
Сначала найти в каком столбце есть,запомнить,проверить есть в следующем вхождение,потом дописать значение и тп

[a_axe]

blackeangel, диапазон не сложный, проверки реализуются в том числе с помощью указанных Вами операторов, алгоритм также может быть таким. Нужно только написать другую программу, поэтому хотелось бы получить ответ на вопрос:

Вопрос встречный - а какие соображения есть, чтобы не форматировать ее как умную таблицу? »