Объединение данных из диапазона ячеек

[Lal]

Подскажите, пожалуйста, как написать макрос для копирования данных из диапазона ячеек в одну ячейку?

[EducatedFool]

С такой формулировкой вопроса Вы вряд ли получите ответ.

Как скопировать много ячеек в одну ячейку?
Что находится в этих ячейках? (числа, текст, формулы)
Что надо получить в итоговой ячейке - сумму, или строку, состоящую из содержимого отдельных ячеек?

Нужен пример файла + подробное описание задачи.

Макрос получится очень простой, но из-за Вашей предельной лаконичности написать его прямо сейчас нет возможности.

[Lal]

Спасибо.
Вот уточнения:
В ячейкаx A1:A15 (количество строк может увеличиваться) находится текст.
Нужно все текстовые значения из этого диапазона перечислить в ячейке B1, через запятую.
Заранее спасибо!

[IFRSoff]

Неужели это так часто надо делать? Может просто воспользоваться функцией сцепить? Пробовали?

[Lal]

Функция Сцепить конечно работает в данном случае, но приходится каждый раз делать щелчки по ячейкам, чтобы добавить новый аргумент.
Может быть как-то можно обратиться к диапазону целиком, а не отдельно к каждой ячейке?

[IFRSoff]

Ну тогда жди EducatedFool. Он в макросах силен и такая мелкая задача действительно не заставит долго ждать решения.

[SAS888]

Вот, например, возможные варианты:

Sub Вариант_1()
    Dim i As Long, a, b()
    a = Range([A1], Cells(Rows.Count, "A").End(xlUp))
    ReDim b(LBound(a, 1) To UBound(a, 1))
    For i = LBound(b) To UBound(b)
        b(i) = a(i, 1)
    Next
    [B1] = Join(b, ",")
End Sub

Sub Вариант_2()
    Dim i As Long, myString As String
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        myString = myString & Cells(i, "A") & ","
    Next
    If myString <> "" Then [B1] = Left(myString, Len(myString) - 1)
End Sub

[Lal]

Большое спасибо!!!

[verdi]

Добрый день!
Подскажите, пожалуйста, макрос для объединения столбцов.
У меня таблица формата

|телефон | факс | e-mail | сайт |

77777 7777 w@w. www


нужно | результат |

тел.: 77777, факс: 7777, e-mail: w@w. сайт: www

т.е., объединить их через запятую с указанием названия столбца.

Пробовал использовать формулы типа "Сцепление", но это не помогает, т.к. полученные данные нужно перенести в другую книгу, при этом, не засоряя ее дополнительными листами с данными + эти данные необходимо будет менять. Словом, нужен макрос, чтобы данные можно было редактировать прямо в тех ячейках, в которых мы их видим.

Сам от программирования также далек, поэтому, к сожалению, сам написать макрос не могу, а руководство задачу поставило.
Буду очень признателен за помощь!

Модератор: создайте новую тему, и прикрепите файл с таблицей и тем, что надо получить в результате.
PS: Макрос здесь не нужен - вполне хватит и простейшей формулы.