Сбор данных со всех столбцов в 1

Пользователь

Сообщений: 1 Регистрация: 21.03.2015

21.03.2015 13:24:17

требуется сцепить все ячейки с текстом и цифрами в1 при этом в начале каждой строки должно стоять название колонки т.е (Вт) 350 прилагаю файл лист 1
возможно это просто но я новичок и уже устал искать на просторах рунета ответ на свой вопрос
окончательный пример что типа текст загаловка- значение ячейки столбца 1 - текст значение ячейки столбца 2 итп

Прикрепленные файлы

Книга1.xls (51 КБ)

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

21.03.2015 13:39:59

Цитата
avaava написал: окончательный пример что типа текст загаловка

Вот как раз желаемый результат и нужно было показать в самом файле.
По теме: если правильно понял, то Вам подойдёт функция СЦЕПИТЬ()

Алишер Шакиров Пользователь Сообщений: 469 Регистрация: 05.01.2013	#3 21.03.2015 14:02:28 Если правильно понял. ЗЫ: Файл пришлось сократить, не помещался в 100 кБ. Прикрепленные файлы Книга1_1.xls (75 КБ)

МВТ

Пользователь

Сообщений: 1198 Регистрация: 01.02.2015

21.03.2015 15:06:23

Макросом?

Код

Sub CC()
Dim S As String
    For I = 4 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(I, 1).Value <> "" Then S = Cells(I, 1).Value
        With Cells(I, 11)
            .Value = S
            For J = 2 To 10
             If Cells(I, J).Value <> "" Then .Value = .Value & ", " & Cells(I, J).Value
            Next J
        End With
    Next I
End Sub