Как найти в первом столбце не пустые ячейки.

[ugin89]

Стоит задача найти непустые ячейки в первом столбце активной таблицы первой и, если в столбце ячейка непустая, то объединить 2-5 столбцы в этой строке. Количество строк всегда разное и разный интервал между заполненными ячейками первого столбца.

[viter.alex]

Примерно так:

Sub MergeCells()
  'Если выделение не в таблице выходим из метода
  If Not Selection.Information(wdWithInTable) Then Exit Sub
  Dim tbl As Table
  'Таблица, в которой стоит курсор
  Set tbl = Selection.Tables(1)
  Dim cl As Cell
  Dim i As Long
  'Цикл по первому столбцу
  For i = 1 To tbl.Rows.Count
    'Запоминаем ячейку, чтобы удобно было обращаться
    Set cl = tbl.Cell(i, 1)
    'Если в ячейке есть текст. В пустой ячейке всегда 2 символа: конец абзаца и конец ячейки
    If Len(cl.Range.Text) > 2 Then
      'Ячейка во втором столбце, с которой начнём объединение
      Set cl = tbl.Cell(cl.rowIndex, 2)
      'Объединяем до ячейки в 5 столбце
      cl.Merge tbl.Cell(cl.rowIndex, 5)
    End If
  Next
End Sub