Здравствуйте, уважаемы знатоки! Подскажите, пожалуйста, как решить такую задачу: есть столбец с заполненными подряд строчками, нужно получить другой столбец с теми же даннми, что и в первом, но с заданным количеством пустых ячеек между строчками. Можно ли это сделать как-то автоматически (сейчас просто вставляю пустые ячейки между значениями).
Здравствуйте, уважаемы знатоки! Подскажите, пожалуйста, как решить такую задачу: есть столбец с заполненными подряд строчками, нужно получить другой столбец с теми же даннми, что и в первом, но с заданным количеством пустых ячеек между строчками. Можно ли это сделать как-то автоматически (сейчас просто вставляю пустые ячейки между значениями).Remrdios
Нужно получить столбец значений, которые будут разделены пустыми строками. Можно на отдельном листе или в том же столбце, не важно. Главное, чтобы сохранились заполненные ячейки и между ними были пустые. Именно с этим столбцом продолжится работа, исходный будет не нужен.
Нужно получить столбец значений, которые будут разделены пустыми строками. Можно на отдельном листе или в том же столбце, не важно. Главное, чтобы сохранились заполненные ячейки и между ними были пустые. Именно с этим столбцом продолжится работа, исходный будет не нужен.Remrdios
Sub u_326() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row For Each c In Range("a3:a" & u) v = Cells(Rows.Count, "b").End(xlUp).Row If Range("b1") = "" Then v = 1 Else v = v + 6 End If Range("b" & v) = c.Value Next Application.ScreenUpdating = True End Sub
Sub u_326() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row For Each c In Range("a3:a" & u) v = Cells(Rows.Count, "b").End(xlUp).Row If Range("b1") = "" Then v = 1 Else v = v + 6 End If Range("b" & v) = c.Value Next Application.ScreenUpdating = True End Sub