Есть еще идея такая.  
 
В конце шага курсор перемещать в конец текста, но ругается jib,rjq 438, подскажите в чем ошибка?  
 
 For j = 1 To n1.Rows.Count  
                 
               Set c1 = n1.Cells(j, 1)  
                   
  If c1.Offset(0, 7).Value = 1 And c1.Offset(0, 20) <> "" Then                            
   
                  c1.Offset(0, 3).Copy  
                  objWrdDoc.Range.PasteSpecial  
                  objWrdDoc.Range.InsertAfter (c1.Offset(0, 5).Value)  
                  objWrdDoc.Range.InsertAfter (c1.Offset(0, 20).Value)  
                  objWrdDoc.EndKey unit:=6  
       
               
            End If  
 
      Next

Типа такого, но здесь закладки остаются на одном месте  
 
For j = 1 To n1.Rows.Count  
Set c1 = n1.Cells(j, 1)  
i = j  
If c1.Offset(0, 7).Value = 1 And c1.Offset(0, 20) <> "" Then  
c1.Offset(0, 3).Copy  
objWrdDoc.Range(0).PasteSpecial  
objWrdDoc.Range(i).InsertAfter (c1.Offset(0, 5).Value)  
objWrdDoc.Range(i).InsertAfter (c1.Offset(0, 20).Value)  
 
End If  
 
With objWrdDoc.Bookmarks  
.Add Range:=objWrdDoc.Range, Name:="закладка" & i  
.ShowHidden = False  
End With  
 
Next

Типа такого, но здесь закладки остаются на одном месте  
 
       For j = 1 To n1.Rows.Count  
               Set c1 = n1.Cells(j, 1)  
                  i = j  
               If c1.Offset(0, 7).Value = 1 And c1.Offset(0, 20) <> "" Then  
                  c1.Offset(0, 3).Copy  
                  objWrdDoc.Range(0).PasteSpecial  
                  objWrdDoc.Range(i).InsertAfter (c1.Offset(0, 5).Value)  
                  objWrdDoc.Range(i).InsertAfter (c1.Offset(0, 20).Value)  
                             
            End If  
 
   With objWrdDoc.Bookmarks  
       .Add Range:=objWrdDoc.Range, Name:="çàêëàäêà" & i  
       .ShowHidden = False  
   End With  
 
      Next

Может перед Next в коде както создать в Word закладку? Как это сделать?

Наверное так можно сделать для заголовка документа Word...  
 
А как сделать для текста переносимого из ячеек Excel?  
 
Их ведь может быть сколь угодно много...

Тест сырого макроса в прикрепленном выше файле "post_348574.txt"

Коллеги, помогите, пожалуйста.  
 
Задача заключается в том, чтобы пробегая по таблице Excel в созданный файл Word перенести значения из ячеек по определенным условиям.  
 
Макрос написал: ячейки определяются из каких нужно копировать текст, новый документ Word создается (в дальнейшем пользователь сам будет его сохранять, сам решая как сохранять и куда).  
 
Столкнулся с тремя трудностями.  
1. Находится одна ячейка по заданным условиям, почему то происходит одно нахождение, а затем сразу выход из цикла, не могу никак сообразить почему так происходит.  
 
2. Как вставить автоматически в документе Word заголовок документа, его название, первой строкой документа: "Список нормативных требований"? Как сделать так, чтобы эта надпись была по центру страницы, шрифтом 14, жирным?  
 
3. В Word текст вставляется в одно и тоже место, там где находится курсор. Как сделать так, чтобы курсор перемещался в конец документа и следующий текст вставлялся с нового абзаца?  
 
Тест сырого макроса такой:  
 
<EM><FONT color=#99000><STRONG>Макрос ниже.  
Длинные листинги вставляйте в .txt</STRONG></FONT>  - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

СПАСИБО ДРУГИ!!!

результат должен 1 быть... а получается 0...

СЧЁТЕСЛИ(В3:В10;(И(A3:A10=A4;B3:B10<>0;B3:B10<>"-")))  
 
это формула в столбце ругается на ИМЯ, а в С считает результат 0,  может ее подправить?

Здаравствуйте.  
Есть три столбца А, В, С.  
Необходимо посчитать количество ячеек по столбцу В и отдельно по столбцу С с учетом трех условий:  
 
По столбцу А ячейки содержащие текстовое выражение "приход".  
По столбцам В и С ячейки не содержащие нулевые значения и значения дефиса "-".  
ПО столбцу В ячейки не содержащие нулевые значения и значения дефиса "-"  
 
файл приложен