Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як повторити рядки певну кількість разів на основі іншого стовпця в Excel?

Ви коли-небудь пробували повторити рядок на основі іншого значення стовпця, як показано на скріншоті нижче? У цій статті я представив метод вирішення цієї роботи в Excel.
doc повторити рядки на основі стовпця 1

Повторіть рядки на основі іншого значення стовпця з VBA

Повторюйте рядки з фіксованим часом Kutools для Excel


Повторіть рядки на основі іншого значення стовпця з VBA

Тут у мене є код, який може швидко повторити рядки на основі значень останніх стовпців.

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.

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

VBA: Повторіть рядки на основі іншого значення стовпця

Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
    MsgBox "Please select single column!"
    GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
    xRN = CInt(xCRg.Value)
    With Rows(xCRg.Row)
    .Copy
    .Resize(xRN).Insert
    End With
Next
Application.ScreenUpdating = True
End Sub

doc повторити рядки на основі стовпця 2

3. прес F5 клавіша, вискакує діалогове вікно, виберіть список номерів, на основі якого будуть повторюватися рядки.
doc повторити рядки на основі стовпця 3

4. Клацніть OK, рядки повторюються на основі вибраного значення стовпця.
doc повторити рядки на основі стовпця 1


Повторюйте рядки з фіксованим часом Kutools для Excel

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

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після установки Kutools для Excel, будь-ласка, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Excel зараз!)

1. Виберіть діапазон даних, який потрібно повторити, натисніть кнопку Кутулс > Insert > Вставити порожні рядки та стовпці. Потім у Вставити порожні рядки та стовпці діалогове вікно, перевірте Пусті ряди варіант, потім введіть 1 в Інтервал of, введіть число, у якому потрібно повторити рядки ряди текстове вікно.
doc повторити рядки фіксований час 2

2. клацання Ok, порожні рядки були вставлені під кожен рядок.
doc повторити рядки фіксований час 3

3. Тримайте діапазон вибраним, клацніть Кутулс > Insert > Заповніть порожні клітинки, в Заповніть порожні клітинки діалогове вікно, перевірте На основі цінностей і вниз Варіанти.
doc повторити рядки фіксований час 4

4. клацання Ok. Тепер порожні клітинки заповнені вищевказаним значенням.
doc повторити рядки фіксований час 5


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    zhu.yiyun1@gmail.com · 2 years ago
    Hi, how to move the repeated output to the side of the original data?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi,yiyun zhu, you can make a copy of the original data, then use above method to handle the copy one, and keep the original data .