Перейти к основному содержанию

Как вставить определенное количество столбцов через фиксированные интервалы в Excel?

При повседневном использовании Excel вы можете столкнуться с ситуацией, когда вам нужно добавить больше столбцов между существующими столбцами. Вы можете, конечно, вставлять столбцы один за другим, используя функцию Insert. Но когда вы сталкиваетесь с большими данными и вам нужно вставить три столбца после каждого второго или n-го столбца, функция «Вставка», по-видимому, неэффективна. Итак, как вы можете быстро закончить задачу? В этом уроке мы поговорим о двух простых способах решения проблемы.

Вставьте определенное количество пустых столбцов в диапазон данных через фиксированные интервалы с кодом VBA

Вставьте определенное количество пустых столбцов в диапазон данных с фиксированными интервалами с помощью удивительной функции.


Вставьте определенное количество пустых столбцов в диапазон данных через фиксированные интервалы с кодом VBA

Мы можем использовать ниже Код VBA чтобы вставить определенное количество пустых столбцов после каждого n-го столбца. Пожалуйста, сделайте следующее.

1. нажмите Alt + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули и вставьте следующий макрос в Модули Окно.

Код VBA: вставка определенного количества столбцов в данные с фиксированными интервалами

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. нажмите F5 ключ для запуска этого кода. Появится всплывающее окно с напоминанием о необходимости выбора диапазон данных в который вы хотите вставить пустые столбцы.
doc вставка столбцов с интервалами 1

4. Нажмите OK кнопка. Появится еще одно окно подсказки, пожалуйста, введите количество столбцов интервалов в Введите интервал столбца пунктом.
doc вставка столбцов с интервалами 2

5. Продолжайте нажимать OK кнопка. Появится третье окно подсказки, укажите количество столбцов, которые вы хотите вставить на каждом интервале в поле.
doc вставка столбцов с интервалами 3

6. Нажмите OK кнопку, чтобы получить результат.
doc вставка столбцов с интервалами 4


Вставьте определенное количество пустых столбцов в диапазон данных с фиксированными интервалами с помощью удивительной функции.

Если вы не хотите использовать метод кода VBA, Вставить пустые строки и столбцы особенность Kutools for Excel идеальное решение для вас. С помощью этой функции вы можете вставить определенное количество столбцов в диапазон данных с фиксированными интервалами всего за несколько кликов.

Перед применением Kutools for Excel, сначала загрузите и установите его.

1. Сначала выберите существующий диапазон данных. Затем нажмите Кутулс > Вставить > Вставить пустые строки и столбцы.
doc вставка столбцов с интервалами 5

2. Вставить пустые строки и столбцы всплывает диалоговое окно. Вы можете увидеть диапазон данных, который вы выбрали на шаге 1, отображаемый в поле «Диапазон». Выбрать Пустые столбцы вариант в Тип вставки раздел. И указать количество столбцов интервалы и столбцы, которые вы хотите вставить на каждом интервале. Здесь я ввожу 1 и 3 отдельно.
doc вставка столбцов с интервалами 6

3. Нажмите OK кнопку, чтобы закончить настройку и получить результат.
doc вставка столбцов с интервалами 7

Внимание: Если вы хотите получить бесплатную пробную версию (30 дней) этой утилиты, нажмите, чтобы загрузить ее, а затем перейдите к выполнению операции в соответствии с указанными выше шагами.


Прочие операции (статьи)

Как быстро вставить строку на основе текущей даты в Excel?
Предположим, есть лист, содержащий строку с датами, и теперь я хочу вставить строку справа от текущей даты, которая будет автоматически меняться при открытии книги каждый день. Есть ли трюк, который может решить эту проблему в Excel?

Как всегда вставлять пустую строку ниже, а не выше в Excel?
Как все мы знаем, при вставке пустой строки на лист пустая строка всегда будет вставлена ​​над выбранной строкой или ячейкой. Но иногда вам может потребоваться вставить строку под выбранной ячейкой или строкой. Как бы вы могли решить эту задачу в Excel?

Как автоматически вставить пустую новую строку с помощью командной кнопки в Excel?
Во многих случаях вам может потребоваться вставить новую пустую строку в указанную позицию вашего рабочего листа. В этой статье мы покажем вам, как автоматически вставить новую пустую строку, нажав кнопку Command в Excel.

Как вставить пустую строку после определенного текста в Excel?
Если вы хотите вставить пустые строки после определенного текста, как показано на следующем снимке экрана, как с этим быстро и легко справиться, не вставляя их вручную по одной?


  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
вкладка kte 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations