Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
сцепить весь столбец
 
Уважаемые форумчане.Есть столбец с кодами, мне надо сцепить их.Формула "сцепить" надо показать каждую строку в столбце (а их у меня больше 200)Как сделать,чтоб не отмечать каждую строку.Спасибо.
row
 
Сцепить две ячейки и протянуть.
 
Вот файл
row
 
...
 
K61.Просто надо встать на зеленную ячеку(как я понял) и всё.Пойду дегустировать.Спасибо Вам большое
row
 
Вот например,С1=A1&B1...после, выбрав ячейку С1 нажать 2 раза на нижний правый угол маркера. Весь столбец автоматически заполнится заданной формулой. (С условием, чтобы нуждающие в сцеплении ячейки были заполнены последовательно!)
Изменено: shahin - 22 Июн 2013 09:12:41
 
shahin.Извините но ячейки могут быть и пустые.
row
 
Подскажите пожалуйста, а как сделать, чтобы этот макрос сцеплял данные с Лист2 на Лист1?Если не трудно помогите.
 
Показать свой файл-пример (небольшой) с исходными данными и с желаемым результатом.
 
Да мне и на примере пользователя k61 сойдет.
 
Вот мой пример.
Изменено: Deniska3 - 9 Сен 2013 21:25:55
 
Пишете про сцепления столбца (с чем?), а в примере получается, что Вам нужно сцепить данные из СТРОК в одну ячейку. Разницу улавливаете?
 
Ну да данные из строк с конкретного столбца.
 
Код
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
 
При активном первом листе.
 
Сцепить много ячеек с указанным разделителем
Есть возможность отсекать повторяющиеся значения.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо огромнейшее, помогли. А вот один нюанс, а можно. чтобы он срабатывал автоматически на Лист1?
 
Автоматически - подразумевается, что должно произойти какое-то событие. Что за событие у Вас и кому адресован вопрос?
 
Юрий М, адресовано Вам, при переходе на Лист1.
 
Введите функцию, на которую я дал ссылку - все автоматом будет пересчитываться.
=СцепитьМного(Лист2!C:C;", ")
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
В модуль первого листа:
Код
Private Sub Worksheet_Activate()
    Call Макрос1
End Sub
 
А у Димы всё и так будет работать.
 
Юрий М и The_Prist, огромное вам спасибо, все работает отлично. Круто!!!
Страницы: 1
Читают тему (гостей: 1)
Наверх