Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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

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

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

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


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

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

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

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

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

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

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


Інші операції (статті)

Як швидко вставити рядок на основі поточної дати в Excel?
Припустимо, є аркуш, що містить рядок із датами, і тепер я хочу вставити рядок прямо до поточної дати, яка автоматично змінюватиметься під час відкриття книги щодня. Чи існує хитрість, яка може вирішити це в Excel?

Як завжди вставляти порожній рядок нижче замість верхнього в Excel?
Як ми всі знаємо, під час вставки порожнього рядка в аркуш порожній рядок завжди буде вставлений над вибраним рядком або коміркою. Але іноді вам може знадобитися вставити рядок нижче вибраної комірки або рядка. Як ви могли вирішити цю роботу в Excel?

Як автоматично вставити порожній новий рядок за допомогою командної кнопки в Excel?
У багатьох випадках вам може знадобитися вставити порожній новий рядок у вказане місце вашого робочого аркуша. У цій статті ми покажемо, як автоматично вставити порожній новий рядок, натиснувши кнопку команди в Excel.

Як вставити порожній рядок після певного тексту в Excel?
Якщо ви хочете вставити порожні рядки після певного тексту, як показано на наведеному нижче знімку екрана, як із цим швидко і легко боротися, не вставляючи їх один за одним вручну?


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

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

  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
вкладка kte 201905
  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL