Доброго времени суток. Помогите пожалуйста привести таблицу к линейному виду, у меня не получается, только недавно начала изучать VBA. Лист 1 - исходные данные, лист 2 - результат. Благодарю за помощь))
Доброго времени суток. Помогите пожалуйста привести таблицу к линейному виду, у меня не получается, только недавно начала изучать VBA. Лист 1 - исходные данные, лист 2 - результат. Благодарю за помощь))Folly
. Выделяете полученные данные и при помощи специальной вставки заменяете формулы на значения. Фильтруете по столбцу А по значению "Удалить" и удаляете. Снимаете фильтр
Без всяких макросов. В столбец А вводите и протягиваете такую формулу
. Выделяете полученные данные и при помощи специальной вставки заменяете формулы на значения. Фильтруете по столбцу А по значению "Удалить" и удаляете. Снимаете фильтрМВТ
Спасибо, но только проблема в том, что второй столбец не всегда начинается со слова "кредит", там может быть всё, что угодно. Разница в отступе. Первый столбец формируется по отступу "0", второй столбец по отступу "1". Подскажите пожалуйста как такое реализовать?
Спасибо, но только проблема в том, что второй столбец не всегда начинается со слова "кредит", там может быть всё, что угодно. Разница в отступе. Первый столбец формируется по отступу "0", второй столбец по отступу "1". Подскажите пожалуйста как такое реализовать?Folly
Sub Мяу() Dim lr&, i&, r As Range Application.ScreenUpdating = False lr = Cells(Rows.Count, 2).End(xlUp).Row For i = 3 To lr If Cells(i, 2).IndentLevel = 0 Then Cells(i, 1).Value = Cells(i, 2).Value Next Set r = Range(Cells(3, 1), Cells(lr, 1)).SpecialCells(xlCellTypeBlanks) r.FormulaR1C1 = "=R[-1]C" Set r = Range(Cells(3, 1), Cells(lr, 1)) r.Value = r.Value For i = lr To 3 Step -1 If Cells(i, 2).IndentLevel = 0 Then Rows(i).Delete Next End Sub
[/vba]
[vba]
Код
Sub Мяу() Dim lr&, i&, r As Range Application.ScreenUpdating = False lr = Cells(Rows.Count, 2).End(xlUp).Row For i = 3 To lr If Cells(i, 2).IndentLevel = 0 Then Cells(i, 1).Value = Cells(i, 2).Value Next Set r = Range(Cells(3, 1), Cells(lr, 1)).SpecialCells(xlCellTypeBlanks) r.FormulaR1C1 = "=R[-1]C" Set r = Range(Cells(3, 1), Cells(lr, 1)) r.Value = r.Value For i = lr To 3 Step -1 If Cells(i, 2).IndentLevel = 0 Then Rows(i).Delete Next End Sub