Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоматическая подстановка разрыва строки
 
#1
07.04.2022 15:18:20
Добрый день.
Имеется полотно данных, более 1000 строк. Нужно сделать разрыв через каждые 50 строк, пример во вложении.
Just keep doing!..
 
 
 
#2
07.04.2022 15:38:30
Добрый.
Как-то так:
Скрытый текст
Кому решение нужно - тот пример и рисует.
 
 
 
#3
07.04.2022 15:49:48
Добрый день.
Код
Sub InsertRow()
    Dim i As Long, lastRow As Long
    Application.ScreenUpdating = False
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lastRow
        If i Mod 50 = 0 Then
            Rows(i + 1).Insert
            lastRow = lastRow + 1
        End If
    Next i
End Sub
 
 
 
#4
07.04.2022 15:56:31
Всем большое спасибо, оба кода работают
Just keep doing!..
 
 
 
#5
07.04.2022 16:26:05
Может и ни к месту. Вариант на массивах.
Код
Sub macro_1()
    Dim arr, i, l, j, temp
    arr = Application.Transpose(ActiveSheet.UsedRange)
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = 50 To UBound(arr, 2) Step 50
            For l = j + 1 To UBound(arr, 2) + 1 Step 50
              temp = arr(i, l)
              arr(i, l) = Empty
              arr(i, l + 1) = temp
              Exit For
            Next l
        Next j
    Next i
ActiveSheet.Cells(1, 1).Resize(UBound(arr, 2), UBound(arr, 1)) = Application.Transpose(arr)
End Sub
Изменено: artemkau88 - 07.04.2022 16:57:42
 
 
 
Страницы: 1
Наверх