Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.01.2021, 14:49   #1
ugin89
Новичок
Джуниор
 
Регистрация: 28.01.2021
Сообщений: 1
По умолчанию Как найти в первом столбце не пустые ячейки.

Стоит задача найти непустые ячейки в первом столбце активной таблицы первой и, если в столбце ячейка непустая, то объединить 2-5 столбцы в этой строке. Количество строк всегда разное и разный интервал между заполненными ячейками первого столбца.
ugin89 вне форума Ответить с цитированием
Старый 28.01.2021, 21:03   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Примерно так:
Код:
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
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как объединить ячейки во втором столбце при совпадении значений в первом столбце BorisD Microsoft Office Excel 13 08.09.2018 10:09
Выделение в таблице рамкой диапазона с одинаковым значением в первом столбце Georgey Microsoft Office Excel 1 25.08.2014 23:43
Как заполнить пустые ячейки нужными значениями Genek36 Microsoft Office Excel 0 09.03.2013 15:46
Макрос на сравнение и подсчет в первом столбце строк, и сумирование значений этих строк в другом столбце Shpr0T Microsoft Office Excel 8 30.08.2010 17:52
Заполнить пустые ячейки ниже значениями из непустой ячейки ing60 Microsoft Office Excel 7 01.04.2009 04:20