Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
сцепить из столбика значения через запятую, Прошу помочь!
 
#1
15.11.2013 16:08:27
Добрый день.
Ребята, подскажите: есть столбец данных, нужно сцепить через запятую в одной итоговой ячейке все значения столбца. Формула "сцепить" нужно клацать каждую ячейку, а их сотни. Как?
 
 
 
#2
15.11.2013 16:21:11
Сцепить много ячеек с указанным разделителем
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
15.11.2013 16:22:03
Показать - где лень? Что с пустыми делать - пробелы, "0" вставлять?
И главное - что с этой свалкой потом делать будете? Разбирать по ячейкам-строкам?
Впрочем, было уже немало вариантов, например, от HUGO и ZVI - сцепление по критерию. Ищем!
Изменено: Z - 15.11.2013 16:22:42
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#4
15.11.2013 16:26:34
Plex 2.0=> объединить !!
 
 
 
#5
15.11.2013 16:38:15
Результат в последнюю ячейку +1 столбца А


Код
Option Explicit

Sub scepka()
Dim iCell As Range
Dim Itogo As String
For Each iCell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(2, 1)
    Itogo = Itogo & "," & iCell
Next
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Mid(Itogo, 2, Len(Itogo) - 1)
End Sub
 
 
 
#6
15.11.2013 16:48:36
Вот такая функция есть:

Код
=ampersand(A2:A100;", ")

Код
Function ampersand(rRange As Range, Optional txt$ = "; ") As String
Dim rCell As Range
    For Each rCell In rRange
        If rCell.Value <> "" Then
            ampersand = ampersand & Trim(rCell.Value) & txt
        End If
    Next
ampersand = Left(ampersand, Len(ampersand) - Len(txt))
End Function
SkyPro
 
 
 
#7
15.11.2013 17:08:27
товарищи! Всем огромное спасибо! Все попробовал! Работает :)
 
 
 
Страницы: 1
Читают тему
Наверх