İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir neçə dəfə satır kopyalamak və əlavə etmək və ya Excel x sıra x dəfə necə çoğaltmaq olar?

Gündəlik işinizdə heç bir satırı və ya hər satırı kopyalamağa və sonra bir iş yerindəki cari verilənlər satırından bir neçə dəfə daxil etməyi sınadınızmı? Məsələn, bir sıra hüceyrələrim var, indi hər satırı kopyalamaq və növbəti ekrana 3 dəfə qoyaraq aşağıdakı ekran görüntüsünü göstərmək istəyirəm. Excel-də bu işlə necə məşğul ola bilərsiniz?

doc kopyalayın x dəfə 1 daxil edin

VBA kodu ilə xüsusi bir neçə dəfə kopyalayın və daxil edin

VBA koduyla bir neçə dəfə hər bir satırı kopyalayın və daxil edin

Excel üçün Kutools ilə hər bir və ya nth sıra üçün xüsusi bir satırı kopyalayın və daxil edin


arrow mavi sağ bubble Excel üçün Kutools ilə hər bir və ya nth sıra üçün xüsusi bir satırı kopyalayın və daxil edin

Hər bir digər və ya nth sıra üçün xüsusi bir satırı kopyalayın və daxil edin

ilə Excel üçün Kutools's Mövzular satırlarını əlavə edin funksiyanı tez bir zamanda hər bir digər və ya nth sıra üçün xüsusi bir satırı kopyalayıb daxil edə bilərsiniz.

doc kopyalayın x dəfə 5 daxil edin

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


arrow mavi sağ bubble VBA kodu ilə xüsusi bir neçə dəfə kopyalayın və daxil edin

Yalnız bir xətt x dəfə təkrarlamaq istəyirsinizsə, aşağıdakı VBA kodu sizə kömək edə bilər, xahiş edirik bunu edin:

1. Kopyalamaq və bir neçə dəfə daxil etmək istədiyiniz bir sıra göstərin və sonra basıb saxlayın ALT + F11 düymələri, sonra açar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Birdən çox dəfə bir xüsusi satırı dublikat:

Sub test()
'Updateby Extendoffice 20160616
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. Kodu bağladıktan sonra, mətbuatın üzərinə basın F5 bu kodu çalıştırmak üçün bir tuşa basın ve bir neçə satır açılır, yinelenmek istediğiniz sayı sayını daxil edin, ekran görüntüsüne baxın:

doc kopyalayın x dəfə 2 daxil edin

4. Sonra basın OK düyməsini və dörd yeni kopyalanan satır seçilmiş sətrin altına daxil edilmiş, ekran görünüşünə baxın:

doc kopyalayın x dəfə 3 daxil edin


arrow mavi sağ bubble VBA koduyla bir neçə dəfə hər bir satırı kopyalayın və daxil edin

Hər bir sıra bir sıra bir neçə dəfə çoğaltıb etmək üçün aşağıdakı VBA kodunu tətbiq edə bilərsiniz:

1. Basıb saxlayın ALT + F11 düymələri, sonra açar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: hər bir sıra bir neçə dəfə çoğal:

Sub insertrows()
'Updateby Extendoffice 2016616
    Dim I As Long
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
        Rows(I).Copy
        Rows(I).Resize(xCount).Insert
    Next
    Application.CutCopyMode = False
End Sub

3. Və sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və hər bir qeyd üçün çoğaltılamaz istədiyiniz dəfə sayını daxil etdiyinizinizi xatırlatmaq üçün bir əmr qutusu açılır, ekran görünüşünə baxın:

doc kopyalayın x dəfə 4 daxil edin

4. Sonra basın OK, hər bir satır kopyalandı və aktiv olanlardan 3 dəfə aşağı salındı, ekran görünüşünə baxın:

doc kopyalayın x dəfə 1 daxil edin

Qeyd: Yuxarıda göstərilən kodda A veri sütununda başlayırsa data sütunu A sütununda başlayır Kdəyişdirin A üçün K ehtiyacınız olduğu kimi.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    naz · 7 months ago
    Really thanks for your support !!!!
  • To post as a guest, your comment is unpublished.
    May · 1 years ago
    Hi, how can I change the code to include the following

    1. duplicate based on number of days
    2. change column EOM from end of month to daily date
  • To post as a guest, your comment is unpublished.
    Talen · 1 years ago
    I used this macros in the past and it has always worked until lately. Any insight why it would only duplicate the top row even when using the multiple row macros? I have removed all filters/frozen panes.
  • To post as a guest, your comment is unpublished.
    Adnan · 1 years ago
    I want to duplicate rows based on a parameter. For example, I have a column named meeting duration time. If that column is more than 1, I want to duplicate meeting ID rows based on that number. If meeting duration is 2 hours, then duplicate meetingID two times. If meeting is 3 hours then duplicate three times.
    half an hour increments can be roundup to the hour.

    MeetingID Time of Start Time of End Meeting Duration
    43117 9:00 AM 11:00 AM 02:00
    43580 9:30 AM 11:00 AM 01:30
    42699 10:00 AM 11:30 AM 01:30
    12345 01:00 PM 2:00 PM 01:00
    • To post as a guest, your comment is unpublished.
      Erin · 1 years ago
      I have the same problem. Have you found a solution?
      • To post as a guest, your comment is unpublished.
        skyyang · 11 months ago
        Hi, guys,
        May be the following VBA code can do you a favor, please apply it:
        Sub insertrows()
        Dim I As Long
        Dim xRg As Range
        Dim xHour, xMin As Long
        On Error Resume Next
        Application.ScreenUpdating = False
        For I = Range("D" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
        xHour = 0
        Set xRg = Range("D" & I)
        xHour = Hour(xRg.Value) + 1
        xMin = Minute(xRg.Value)
        If xMin < 30 Then xHour = xHour - 1
        Rows(I).Copy
        Rows(I).Resize(xHour).Insert
        Next
        Application.ScreenUpdating = True
        Application.CutCopyMode = False
        End Sub

        Please try it. Hope it can help you!
  • To post as a guest, your comment is unpublished.
    Rushabh Patel · 1 years ago
    i want to generate duplicate rows randomly,

    for eg. generate random duplicate rows between 20 to 80.


    what will be updated code for the following


    Sub insertrows()
    'Updateby Extendoffice 2016616
    Dim I As Long
    Dim xCount As Integer
    LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
    MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
    GoTo LableNumber
    End If
    For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
    Rows(I).Copy
    Rows(I).Resize(xCount).Insert
    Next
    Application.CutCopyMode = False
    End Sub