разнести строку оставляя пустые ячейки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

разнести строку оставляя пустые ячейки (Формулы/Formulas)

Liliput101

Дата: Вторник, 13.02.2018, 16:50 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Необходимо разнести список по соседнему столбцу, перепрыгивая (оставляя пустой) одну ячейку
Собственно пример приложил

Спасибо за помощь форумчанам и собственно форуму

К сообщению приложен файл: 4853772.xlsx (21.2 Kb)

Ответить

abtextime

Дата: Вторник, 13.02.2018, 17:31 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

Лично я не морочился бы с формулами, а использовал бы простенькую UDF
[vba]

Код

Public Function Propusk(RR As Range, N As Integer) As String

Counter = 0

For i = 1 To RR.Rows.Count
    If Trim((RR.Cells(i, 1).Value)) <> "" Then
        Counter = Counter + 1
        If Counter = N Then
            Propusk = RR.Cells(i, 1).Value
            Exit For
        End If
    End If
Next i

End Function

[/vba]

К сообщению приложен файл: 4853772.xlsm (28.0 Kb)

Ответить

Liliput101

Дата: Вторник, 13.02.2018, 18:17 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Мало того, что я в формулах не очень разбирась, про макросы молчу
но потыкав, показалось, что он выполняюет обратную ф-цию убирает пробелы и фориурует сптсок без пробелов, а мне необходимо оставлять каждую 4 строчку пустой

Ответить

abtextime

Дата: Вторник, 13.02.2018, 18:43 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

UPD

В макрос вкралась ошибка, но исправлять некогда, тороплюсь.

Задача простая, уверен, Вам помогут

К сообщению приложен файл: 4853772-1-.xlsm (28.2 Kb)

Сообщение отредактировал abtextime - Вторник, 13.02.2018, 18:57

Ответить

Pelena

Дата: Вторник, 13.02.2018, 20:45 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

Репутация: 4620 ±

Замечаний: ±

Excel 365 & Mac Excel

Формулой

Код

=ЕСЛИ(ОСТАТ(СТРОКА(A1);4);ИНДЕКС($D$3:$D$194;СЧЁТЕСЛИ($C$1:C1;"?*"));"")

К сообщению приложен файл: 9742419.xlsx (25.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Liliput101

Дата: Среда, 14.02.2018, 10:07 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Спасибо! Съэкономили кучу времени

Ответить

Liliput101

Дата: Среда, 14.02.2018, 10:47 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Попытался с умным лицом потыкать, не кого не напрягая, не вышло(
Подскажите. а как сделать тоже самое но с 2 пробелами?

Ответить

sboy

Дата: Среда, 14.02.2018, 11:20 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
По данным в примере можно так (инструкция: скачать файл, открыть, нажать на кнопку. макросы должны быть разрешены)
[vba]

Код

Sub ins_rows()
    For r = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
        If Not IsEmpty(Cells(r, 4).Value) Then
            s1 = Replace(Replace(Cells(r, 4), Chr(34), ""), "!", "")
            s2 = Replace(Replace(Cells(r - 1, 4), Chr(34), ""), "!", "")
                If s2 <> s1 Then Rows(r).Insert
        End If
    Next
End Sub

[/vba]