Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос строки по определенному условию
 
#1
12.03.2019 09:51:05
Добрый день
Есть таблица такого вида:
СнегоходArctic CatZR5001999,2000AAC4001
СнегоходArctic CatPantera 5801999,2000,2001AAC4001
Возможно ли заставить excel копировать содержимое автоматически при условии, что в 4 столбце есть значения через запятую? На выходе нужно получить:
СнегоходArctic CatZR5001999AAC4001
СнегоходArctic CatZR5002000AAC4001
СнегоходArctic CatPantera 5801999AAC4001
СнегоходArctic CatPantera 5802000AAC4001
СнегоходArctic CatPantera 5802001AAC4001
 
 
 
#2
12.03.2019 09:59:40
можно. макросом. поищите по форуму, было уже.
 
 
 
#3
12.03.2019 10:00:48
Подскажите пожалуйста по каким запросам искать?
 
 
 
#4
12.03.2019 10:58:01
например так - разнести данные ячейки по строкам
естественно полного совпадения наврятли найдете, придется подпиливать под себя.
Изменено: V - 12.03.2019 10:59:10
 
 
 
#5
12.03.2019 22:41:00
jon_98, выложите файл, под него может быть кто-нибудь сделает макрос.
 
 
 
#6
13.03.2019 11:25:32
Понял так..
Код
Sub tt()
    Dim a, r As Range, i&, k&
    Set r = Sheets(1).[A1].CurrentRegion
    Application.ScreenUpdating = 0
    With r
        For i = .Columns(1).Cells.Count To 2 Step -1
            a = Split(.Cells(i, "C"), ",") '"C" ваша колонка с запятыми
            If UBound(a) >= 1 Then 'если есть запятые
                For k = 0 To UBound(a)
                    .Rows(i).Copy
                    .Rows(i).Insert xlDown
                    .Rows(i).Cells(, "C") = a(k)
                Next
                .Rows(i + k).Delete
            End If
        Next
    End With
End Sub
 
 
 
Страницы: 1
Наверх