Як вставити певну кількість стовпців через фіксовані інтервали в Excel?

Під час щоденного використання Excel ви можете зіткнутися з необхідною ситуацією додати більше стовпців між існуючими стовпцями. Ви, звичайно, можете вставляти стовпці один за одним за допомогою функції Вставити. Але коли ви стикаєтеся з великими даними і вам потрібно вставити три стовпці після кожного другого або n-го стовпця, функція Insert, очевидно, не ефективна. Отже, як можна швидко виконати завдання? У цьому підручнику ми розповімо про два простих способи вирішення проблеми.

Вставте певну кількість порожніх стовпців у діапазон даних через фіксовані проміжки часу за допомогою коду VBA

Вставте певну кількість порожніх стовпців у діапазон даних через фіксовані проміжки часу за допомогою дивовижної функції

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

1 Натисніть кнопку Alt + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі і вставте наступний макрос у Модулі Вікно

Код 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 ключ для запуску цього коду. З’явиться вікно підказки, щоб нагадати вам вибрати діапазон даних у який потрібно вставити порожні стовпці.

4. Натисніть OK кнопку. З’явиться інше вікно підказки, будь ласка, введіть кількість інтервалів стовпців в Введіть інтервал стовпця коробка

5. Продовжуйте натискати OK кнопку. З’явиться третє вікно підказки, будь ласка, вкажіть кількість стовпців, які потрібно вставити на кожному інтервалі В коробці.

6. Натисніть OK кнопку, щоб отримати результат.

Якщо ви не хочете використовувати метод коду VBA, Вставити порожні рядки та стовпці особливість Kutools для Excel це ідеальне рішення для вас. За допомогою цієї функції ви можете вставляти певну кількість стовпців у діапазон даних із фіксованими інтервалами лише кількома клацаннями.

Перед поданням заявки Kutools для Excel, спершу завантажте та встановіть його.

1. Спочатку виберіть існуючий діапазон даних. Потім натисніть Кутулс > Insert > Вставити порожні рядки та стовпці.

2. Вставити порожні рядки та стовпці з’явиться діалогове вікно. Ви можете побачити діапазон даних, який ви вибрали на кроці 1, у полі Діапазон. Виберіть Пусті стовпці опція в Вставити тип розділ. І уточнити номери інтервалів стовпців та стовпців, які потрібно вставити в кожен інтервал. Тут я вводжу 1 і 3 окремо.

3. Натисніть OK щоб завершити налаштування та отримати результат.

примітки: Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, будь ласка, натисніть, щоб завантажити її, а потім перейдіть, щоб застосувати операцію відповідно до наведених вище кроків.

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...

Детальніше ... Повні можливості 30-денної безкоштовної пробної версії ... Придбати ... 

---

Вкладка Office - надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Повні можливості 30-денної безкоштовної пробної версії ... Придбати ...