Макрос выделения диапазона ячеек-объединение их в одну-переход на след.строку-повтор пред.действия - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день. Помогите плиз решить задачу. Я с VBA столкнулся впервые 1) в строке необходимо объединить диапазон ячеек (в каждой ячейке есть данные (простой текст)) от 'A' до 'M' в одну ячейку с сохранением все данных * такой макрос я нашел в интернете (он работает с "ручным" выделением ячеек) 2) перейти на следующую строку и повторить действие из п.1 3) я знаю, что у меня таких строк допустим 550, значит необходимо выполнять эту операцию до строки 550 ...искал по форумам, анализировал, пытался составить макрос, но что-то не получается, т.к. я не знаю этого языка решил, что нужно еще один макрос (1й - это объединение ячеек в одну "MergeCell") написать, который выделяет ячейки, потом задействует макрос "MergeCell" и переходит к следующей строке

Решение задачи: «Макрос выделения диапазона ячеек-объединение их в одну-переход на след.строку-повтор пред.действия»

textual
Листинг программы
  1. Sub qwert()
  2.     Dim r
  3.     For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  4.         Cells(r, 1).Resize(, 13).Select
  5.         MergeCell  ' тут вызывайте свой макрос
  6.    Next r
  7. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.231 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы