Вставить пустые строки

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

Вставить пустые строки (Формулы/Formulas)

TZFLeader

Дата: Пятница, 11.07.2014, 18:42 | Сообщение № 1

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

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

Сообщений: 7

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

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

Excel 2013

Добрый день. Есть ли возможность вставить пустые строки в количестве соответствующем значению ячейки. В приложенном файле в левом столбце то, что имеем. В правом - желаемый результат.

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

Ответить

Michael_S

Дата: Пятница, 11.07.2014, 18:59 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

В модуль листа
[vba]

Код

Sub TZFLeader()
Dim i
With Range("A1").CurrentRegion
      For i = .Cells.Count - 1 To 1 Step -1
          If .Cells(i, 1) Then
              Rows(i + 1 & ":" & i + .Cells(i, 1)).Insert
          End If
      Next
End With
End Sub

[/vba]или, как вариант [vba]

Код

Sub TZFLeader()
Dim i
With Range("A1").CurrentRegion
     For i = .Cells.Count - 1 To 1 Step -1
         If .Cells(i, 1) Then
             .Rows(i + 1 & ":" & i + .Cells(i, 1)).Insert Shift:=xlDown
         End If
     Next
End With
End Sub

[/vba]

Сообщение отредактировал Michael_S - Пятница, 11.07.2014, 19:02

Ответить

TZFLeader

Дата: Пятница, 11.07.2014, 19:08 | Сообщение № 3

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

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

Сообщений: 7

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

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

Excel 2013

Michael_S, Спасибо! То что надо!

Ответить

_Boroda_

Дата: Пятница, 11.07.2014, 19:11 | Сообщение № 4

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

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

Сообщений: 16895

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Если Вам просто нужно разнести данные, то можно формулой (файл _1)
Если реально повставлять строки, то такой вариант макроса (файл _2)
[vba]

Код

Sub tt()
     r0_ = 1
     r1_ = Range("A" & Rows.Count).End(xlUp).Row
     For i = r1_ To r0_ Step -1
         If Range("A" & i) Then Rows(i + 1 & ":" & i + Range("A" & i)).Insert
     Next i
End Sub

[/vba]

К сообщению приложен файл: 20_1.xlsx (10.2 Kb) · 20_2.xlsm (16.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

TZFLeader

Дата: Пятница, 11.07.2014, 19:19 | Сообщение № 5

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

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

Сообщений: 7

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

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

Excel 2013

_Boroda_, Спасибо! Ваш вариант макроса тоже приму к сведению.

Ответить

Вставить пустые строки (Формулы/Formulas)

Страница 1 из 1
1