Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
сцепить весь столбец
 
#1
22.06.2013 02:06:28
Уважаемые форумчане.Есть столбец с кодами, мне надо сцепить их.Формула "сцепить" надо показать каждую строку в столбце (а их у меня больше 200)Как сделать,чтоб не отмечать каждую строку.Спасибо.
row
 
 
 
#2
22.06.2013 02:14:35
Сцепить две ячейки и протянуть.
 
 
 
#3
22.06.2013 02:23:26
Вот файл
row
 
 
 
#4
22.06.2013 03:27:41
...
 
 
 
#5
22.06.2013 08:38:01
K61.Просто надо встать на зеленную ячеку(как я понял) и всё.Пойду дегустировать.Спасибо Вам большое
row
 
 
 
#6
22.06.2013 09:06:15
Вот например,С1=A1&B1...после, выбрав ячейку С1 нажать 2 раза на нижний правый угол маркера. Весь столбец автоматически заполнится заданной формулой. (С условием, чтобы нуждающие в сцеплении ячейки были заполнены последовательно!)
Изменено: shahin - 22.06.2013 09:12:41
 
 
 
#7
22.06.2013 20:04:10
shahin.Извините но ячейки могут быть и пустые.
row
 
 
 
#8
09.09.2013 21:09:55
Подскажите пожалуйста, а как сделать, чтобы этот макрос сцеплял данные с Лист2 на Лист1?Если не трудно помогите.
 
 
 
#9
09.09.2013 21:13:29
Показать свой файл-пример (небольшой) с исходными данными и с желаемым результатом.
 
 
 
#10
09.09.2013 21:17:53
Да мне и на примере пользователя k61 сойдет.
 
 
 
#11
09.09.2013 21:25:34
Вот мой пример.
Изменено: Deniska3 - 09.09.2013 21:25:55
 
 
 
#12
09.09.2013 21:33:21
Пишете про сцепления столбца (с чем?), а в примере получается, что Вам нужно сцепить данные из СТРОК в одну ячейку. Разницу улавливаете?
 
 
 
#13
09.09.2013 21:37:33
Ну да данные из строк с конкретного столбца.
 
 
 
#14
09.09.2013 21:41:46
Код
Sub Макрос1()
Dim LastRow As Long
    Cells(3, 7) = Empty
    With Sheets("Лист2")
        LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
        For i = 1 To LastRow
            If .Cells(i, 3) <> "" Then
                If Cells(3, 7) = "" Then
                    Cells(3, 7) = .Cells(i, 3)
                Else
                    Cells(3, 7) = Cells(3, 7) & ", " & .Cells(i, 3)
                End If
            End If
        Next
    End With
End Sub
 
 
 
#15
09.09.2013 21:42:24
При активном первом листе.
 
 
 
#16
09.09.2013 21:53:47
Сцепить много ячеек с указанным разделителем
Есть возможность отсекать повторяющиеся значения.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#17
09.09.2013 21:58:43
Спасибо огромнейшее, помогли. А вот один нюанс, а можно. чтобы он срабатывал автоматически на Лист1?
 
 
 
#18
09.09.2013 22:03:50
Автоматически - подразумевается, что должно произойти какое-то событие. Что за событие у Вас и кому адресован вопрос?
 
 
 
#19
09.09.2013 22:07:20
Юрий М, адресовано Вам, при переходе на Лист1.
 
 
 
#20
09.09.2013 22:07:44
Введите функцию, на которую я дал ссылку - все автоматом будет пересчитываться.
=СцепитьМного(Лист2!C:C;", ")
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#21
09.09.2013 22:11:31
В модуль первого листа:
Код
Private Sub Worksheet_Activate()
    Call Макрос1
End Sub
 
 
 
#22
09.09.2013 22:11:57
А у Димы всё и так будет работать.
 
 
 
#23
09.09.2013 22:15:53
Юрий М и The_Prist, огромное вам спасибо, все работает отлично. Круто!!!
 
 
 
Страницы: 1
Наверх