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

Як повторити значення клітинки x разів у Excel?

Наприклад, у вас є список значень у стовпці A, і ви хочете повторити значення певну кількість разів на основі кількості разів у стовпці B, як показано на лівому скріншоті, як ви могли досягти цього в Excel?

 

Повторіть значення клітинки X разів із формулою та допоміжним стовпцем

Щоб повторити значення комірок X рази, ви можете вставити кілька допоміжних стовпців, а потім застосувати просту формулу, виконайте такі дії:

1. Вставте стовпець ліворуч від стовпця A і введіть 1 у клітинку A2, див. Знімок екрана:

2. Потім поставте цю формулу = A2 + C2 в A3 і перетягніть маркер заповнення до комірки A6, див. знімок екрана:

3. А потім введіть 1 у комірку D2 та заповніть число, перетягнувши Автозаповнення до 12, що є загальною кількістю разів у стовпці C, див.

4. Потім введіть цю формулу = ПЕРЕГЛЯД (D2, $ A $ 1: $ B $ 6,2) в клітинку E2 і скопіюйте вниз, ви отримаєте такий результат:

  • примітки:
  • 1. У цій формулі D2 позначає першу клітинку, яку ви заповнили послідовністю цифр, і A1: B6 означає діапазон першого допоміжного стовпця та вихідні значення комірки, які потрібно повторити.
  • 2. Отримавши повторювані значення, ви можете скопіювати та вставити їх як значення в будь-яке інше місце.

Легко скопіюйте та вставте рядки X разів на основі конкретного числа

Зазвичай не існує хорошого методу копіювання та вставки рядків кілька разів, за винятком ручного копіювання та вставки. Але, с Kutools для Excel's Повторювані рядки / стовпці на основі значення комірки функцію, ви можете легко вирішити цю проблему. Клацніть, щоб завантажити Kutools для Excel!

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 60 днів. Завантажте та безкоштовно пробну версію зараз!


Повторіть значення комірок X разів із кодом VBA

Якщо ви вважаєте, що перший метод важко зрозуміти, тут я також можу представити вам код VBA для його вирішення.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

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

Код VBA: Повторіть значення комірки X рази

Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub
3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка з нагадуванням про вибір діапазону, що містить значення та повторення часу, див. знімок екрана:

4, І натисніть OK, вискакує ще одне підказне вікно, яке дозволить вам вибрати комірку, щоб поставити результат, див. знімок екрана:

5. Потім натисніть OK, і ви отримаєте результат, що вибрані вами значення повторювались зазначений раз, як вам потрібно.


Скопіюйте та вставте значення комірок X разів із чудовою функцією

Іноді вам може знадобитися скопіювати та вставити значення клітинки x разів на основі конкретного числа, Kutools для Excel's Повторювані рядки / стовпці на основі значення комірки може допомогти вам швидко скопіювати та вставити рядки на основі вказаного вами числа.

Порада:Щоб застосувати це Повторювані рядки / стовпці на основі значення комірки По-перше, вам слід завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Клацання Кутулс > Insert > Повторювані рядки / стовпці на основі значення комірки, див. скріншот:

2, в Скопіюйте та вставте рядки та стовпці діалогове вікно, виберіть Скопіюйте та вставте рядки опція в тип розділу, потім виберіть діапазон даних, який потрібно скопіювати, а потім вкажіть час повторення для копіювання та вставки рядків, див. знімок екрана:

4. Потім натисніть кнопку Ok or Застосовувати , ви отримаєте такий результат, як вам потрібно:

Натисніть, щоб завантажити Kutools для Excel та безкоштовну пробну версію зараз!


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

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

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (45)
Оцінено 5 з 5 · рейтинги 1
Цей коментар був мінімізований модератором на сайті
Дякую за це, дуже легко зробити та зрозуміти. Раніше я робив це вручну з 2600 осередками.
Цей коментар був мінімізований модератором на сайті
Чи є спосіб зробити так, щоб макрос запам’ятав місце призначення введення та виведення, щоб наступного разу, коли макрос запускався, вам не потрібно було вибирати повторно?
Цей коментар був мінімізований модератором на сайті
Код VBA порушується, якщо в стовпці "кількість разів" є значення 0. Налаштуйте цикл For Each таким чином: Для кожного Rng In InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value Якщо xNum > 0, то OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) End If Next
Цей коментар був мінімізований модератором на сайті
Дякую, чоловіче!! Заощадили багато часу. :-)
Цей коментар був мінімізований модератором на сайті
Я використовував перший підхід, він працював бездоганно, дякую.
Цей коментар був мінімізований модератором на сайті
Дякую, чоловіче..!! Це працює і заощадило мій достатню кількість часу.
Цей коментар був мінімізований модератором на сайті
Спасибі!! Заощадив мені купу часу. Розумне використання vlookup!
Цей коментар був мінімізований модератором на сайті
Як і #John Said, чи є спосіб встановити діапазон, щоб вам не потрібно було вибирати. Я також намагаюся вставити кожне окреме значення в окремий стовпець. Я змінив рядок Set OutRng=OutRng.offset(xNum,0) на Set OutRng=OutRng.offset(xNum,1), намагаючись розмістити його в стовпцях. Здається, я отримую помилку в рядку OutRng.Resize(xNum ,1).value=xValue, навіть якщо я скопіюю та вставлю код з цього сайту. Будемо вдячні за будь-яку допомогу.
Цей коментар був мінімізований модератором на сайті
Велике спасибі!!!! VB Macro спрацював для мене і заощадив мій 1 тиждень часу.... Ще раз дякую..
Цей коментар був мінімізований модератором на сайті
Привіт! Чи працюватиме запропонований у статті код VBA, якщо клітинки з кількістю разів не знаходяться поруч із клітинками зі значенням? Якщо ні, то чи є спосіб змінити VBA, щоб він працював?
Цей коментар був мінімізований модератором на сайті
Дуже дякую. :)
Цей коментар був мінімізований модератором на сайті
Привіт, у мене є запит: Базові дані: Client Country Загальний результат: Client1 Client2 Client3 (якщо є) Country1 Country2 і так далі...(якщо є) Overall1 Overall2 і так далі...(якщо є) Будь ласка, будь-хто може Вирішіть це, використовуючи формулу в Excel ASAP
Цей коментар був мінімізований модератором на сайті
Чудово! Велике дякую!!!!!!!!
Цей коментар був мінімізований модератором на сайті
Все ще зберігаємо проекти у 2017 році! Велике спасибі за це! :-)
Цей коментар був мінімізований модератором на сайті
Велике спасибі, чувак, ти зробив чудову роботу.
Цей коментар був мінімізований модератором на сайті
Чи є спосіб змінити код, щоб було 2 стовпці з даними та 1 стовпець із кількістю повторів. тобто A1 = x B2 = y C3 = 2, тоді макрос повторить двічі A1 і двічі b2 у клітинках праворуч. Будь-яка допомога. Спасибі.
Цей коментар був мінімізований модератором на сайті
Це дуже допомогло, стало в нагоді для створення електронної таблиці для роботи
Цей коментар був мінімізований модератором на сайті
मैं बहुत दिनों से यह ऑप्शन ढूढ रहााधनाधन
Цей коментар був мінімізований модератором на сайті
VBA або формула. Жоден із них не працює на мене. Він дає "помилку, визначену програмою або визначеною об'єктом" Помилка 1004. Хтось може допомогти?
Цей коментар був мінімізований модератором на сайті
Код VBA не працює, якщо у вас немає Kutools. Це дає мені помилку "змінна не визначена"
There are no comments posted here yet
Load More

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

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