Вставить строку каждые X строк в excel

У меня есть длинный список кодов, таких как 008.45 и т. Д., Которые потребуют нескольких строк текста, чтобы объяснить их. У меня есть список кодов, и я хотел бы знать, как я могу автоматически вставлять строку каждую, скажем, пятую строку. Пример ниже

1 2 3 4 5 6 7 8 9 10... 100 

Каждые пять строк я хотел бы вставить определенное количество моих строк. Как я могу это сделать? благодаря

Вам нужно будет использовать цикл, как показано ниже:

 for i=1 to 100 step 1 if i mod 5 = 0 then // Insert the rows end if next i 

Тест с диапазоном от строки 1 до строки 100.

 Sub InsertRows() For i = Sheet1.UsedRange.Rows.Count To 1 Step -5 For j = 0 To 4 Sheet1.Rows(i).Insert Next Next End Sub 

Чтобы вставить строку в строке myRowNumber , ваш код VBA будет выглядеть так:

  Rows(myRowNumber).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 

Вы можете включить это в ответ Энди.

Или вы можете использовать функцию модуля так:

 =IF(MOD(ROW()-1,7),"",A1) 

в B1, где A1 является первым номером вашего набора данных.

NB: измените значение 7 на n, чтобы получить каждую n -ю строку.

Например, если я хочу 5 из моих записей между моими строками данных, я бы использовал Mod 6, однако вам нужно разрешить эти новые строки, так как они будут влиять на используемый диапазон диапазонов! Для этого вам нужно добавить количество строк, которые будут вставлены в длину цикла (например, абсолютное значение (numberOfRows / YourModValue)).

Код для этого:

 Sub InsertRows() For i = 1 To Sheet1.UsedRange.Rows.Count + Abs(Sheet1.UsedRange.Rows.Count / 6) Step 1 If i Mod 6 = 0 Then Sheet1.Rows(i).Insert Cells(i, 1).Value = "Whatever data you want in your new separator cell" End If Next i End Sub 

Это отлично подействовало на меня:

 Sub add_rows_n() t = 6 Do Until Cells(t, "A") = "" Rows(t).Insert t = t + 6 Loop End Sub 
  • Как удалить все символы после первого пробела в ячейке?
  • Снять защитный лист с паролем, не подвергая пароль макросу
  • Кто-нибудь сталкивался с странным поведением LOOKUP ()?
  • Архитектура приложения Excel
  • Перенос данных Excel с использованием встроенных формул
  • Формула Excel для извлечения данных из соответствующих ячеек результата поиска
  • сохранять пустые ячейки при сохранении excel как xml
  • Копирование данных из листа Excel в разные файлы
  • Создание новой рабочей книги и копирование рабочих листов за
  • Добавить или добавить к массиву без VBA / UDF
  • Выдержка из тэгов
  • Interesting Posts

    Сохранение данных из текстового поля в Excel

    Список Excel VBA concatenate

    Perl Excel – не может вызывать значение метода для неопределенного значения. Удаление ячеек, когда текст является подстрокой другой ячейки

    Приложение VB оставляет зависающий фон Excel обрабатывает до выхода приложений

    Выделение взвешенного дохода от продаж до отчетных дат

    Ускорение цикла в excel

    Как объединить список слов в предложение с «и» перед последним элементом в Excel?

    Как я могу обновить отдельные ячейки в отчете формулы куба?

    Как выбрать версию excel, которую win32com.client должен использовать в python?

    Экспорт изображений Excel VBA в исходном разрешении

    Как скопировать ячейку с несколькими строками без нарушения строк?

    Проблема с листом excel при попытке получить значения из groovy script

    Сиротский объект, сохраняющий Excel.exe в диспетчере задач?

    скопируйте весь рабочий лист excel на новый рабочий лист, используя Python win32com

    Многомерные массивы с нулевым основанием

    Давайте будем гением компьютера.