vikttur Откуда такие выводы?....
Рада, что ошиблась :)

vikttur ..........Можно поиздеваться и формулами, но стоит ли?
уже даже мне понятно,что издеваться формулами не стоит ни над Deggasad ом, ни над столбцами... (простите меня, упёртую... вот идея была, именно формулами!!)

Кстати, видели, какой на "планете" макрос написал Игорь67 ?
вот время ужо 3:15, а я с ним (с макросом:)) разбираюсь...
только он не использовал ВидПокрытия и Нестандарт.. что и пытаюсь сделать я))
но я боюсь макросов

Народ!! Хелп!!

что за ерунда...не пойму.
разобралась с макросом под свою задачу. на черновике пробовала- все работает.

копирую макрос в чистовую( там все-все-все столбцы и строки совпадают) - не работает!

чтобы вы посмотрели, надо сам макрос прикрепить или нужна вся работа с листами?
пока вот он:

Бзз
Sub myDataCopy()

Dim iCol As Integer, i As Integer, iLastRow As Long
Dim k As Integer
Dim shTrgt As Worksheet
Dim view As String
Dim model As String
Dim razmer As String, strDo As String, strDg As String
Dim m As Integer

Application.ScreenUpdating = False

Set shTrgt = Sheets("РАБОЧИЙ лист")
strDo = "ДО"
strDg = "ДГ"

'начинаем обработку столбцов
For iCol = 2 To 9
'вычисляем четный столбец или нечётный
k = Evaluate("=mod(" & iCol & ", 2)")
If k = 0 Then 'если столбец четный
Range(Cells(5, iCol), Cells(5, iCol + 1)).UnMerge
model = Cells(5, iCol).Text 'запоминаем модель
Range(Cells(5, iCol), Cells(5, iCol + 1)).Merge

Range(Cells(7, iCol), Cells(7, iCol + 1)).UnMerge
view = Cells(7, iCol).Text 'запоминаем ВидПокрытия
Range(Cells(7, iCol), Cells(7, iCol + 1)).Merge
End If

'начали просматривать строки
For i = 8 To 12
If Cells(i, iCol) > 0 Then 'если есть значение
iLastRow = shTrgt.Cells(Rows.Count, 2).End(xlUp).Row + 1
If iLastRow = 6 Then iLastRow = 7
m = Cells(i, iCol).Value 'передаем переменной значение ячейки

shTrgt.Cells(iLastRow, 2).Resize(m) = model
shTrgt.Cells(iLastRow, 3).Resize(m) = view
shTrgt.Cells(iLastRow, 4).Resize(m) = Cells(i, 1).Value
If k = 0 Then
shTrgt.Cells(iLastRow, 5).Resize(m) = strDg
Else: shTrgt.Cells(iLastRow, 6).Resize(m) = strDo
End If

End If

Next i

Next iCol

End Sub



выделяет желтым цветом выделенную жирным строку..
а в черновике - работает

вот черновик:

Всё перепроверила. Deggasad, Minamoto, Hugo121 - спасибо!
помогло вот это:
Hugo121Про Val забыл... сразу и без пробелов, и в число:


но до следующей строки помогло...

теперь желтая -

..........
m = Cells(i, iCol).Value 'передаем переменной значение ячейки

shTrgt.Cells(iLastRow, 2).Resize(m) = model
shTrgt.Cells(iLastRow, 3).Resize(m) = view
shTrgt.Cells(iLastRow, 4).Resize(m) = Cells(i, 1).Value
If k = 0 Then
shTrgt.Cells(iLastRow, 5).Resize(m) = strDg
Else: shTrgt.Cells(iLastRow, 6).Resize(m) = strDo
..........

========================
я уже пошла на то, что перенесла весь чистовик в рабочий черновик!
хорошо работало! до создания последнего(!) макроса.
Опять та же ошибка!!! причем макрос тупо копировался с предыдущего, меняла только номера рассматриваемых строк!!

ой. конечно же m - заменила на предложенный Hugo121 !

а кто-нибудь может написать, как запретить выполнение команды, если не все требуемые поля заполнены.? ну там с MsgBox (так вроде?)) ..типа " не все поля заполнены".
и если да)), то куда его в приведенный мной выше пример вставить?
пожалуйста-пожалуйста-пожалуйста!!!

DeggasadУ вас в предыдущих примерах во многих ячейках стояли пробелы. Проверте.
ну конечно!!! пробелы!!
столько времени потеряла.

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