Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano mag-duplicate row batay sa cell value sa isang haligi?

Halimbawa, mayroon akong isang hanay ng data na naglalaman ng isang listahan ng mga numero sa hanay na D, at ngayon, nais kong i-duplicate ang buong hanay ng ilang beses batay sa mga numerong halaga sa column D upang makuha ang sumusunod na resulta. Paano ko maaaring kopyahin ang mga hanay nang maraming beses batay sa mga halaga ng cell sa Excel?

doc duplicate na mga hilera ng cell 1

Dobleng hanay nang maraming beses batay sa mga halaga ng cell na may VBA code


arrow blue right bubble Dobleng hanay nang maraming beses batay sa mga halaga ng cell na may VBA code

Upang kopyahin at i-duplicate ang buong hanay nang maraming beses batay sa mga halaga ng cell, ang sumusunod na VBA code ay maaaring makatulong sa iyo, mangyaring gawin ito:

1. I-hold ang ALT + F11 key upang buksan ang Microsoft Visual Basic para sa Mga Application window.

2. I-click ang Isingit > Module, at i-paste ang sumusunod na code sa Module Window.

VBA code: Duplicate row nang maraming beses batay sa halaga ng cell:

Sub CopyData()
'Updateby Extendoffice 20160922
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. Pagkatapos ay pindutin F5 susi upang patakbuhin ang code na ito, ang buong mga hanay ay naulit na maraming beses batay sa halaga ng cell sa haligi D hangga't kailangan mo.

nota: Sa kodigo sa itaas, ang liham A ay nagpapahiwatig ng hanay ng pagsisimula ng iyong hanay ng data, at ang letra D ang titik ng haligi na nais mong i-duplicate ang mga hanay batay sa. Mangyaring baguhin ang mga ito sa iyong pangangailangan.



Inirerekumendang Mga Tool sa Produktibo

Tab ng Tanggapan

ginto star1 Dalhin ang mga madaling tab sa Excel at iba pang software ng Office, tulad ng Chrome, Firefox at bagong Internet Explorer.

Kutools para sa Excel

ginto star1 Kahanga-hangang! Palakihin ang iyong pagiging produktibo sa 5 minuto. Hindi kailangan ang anumang mga espesyal na kasanayan, i-save ang dalawang oras araw-araw!

ginto star1 300 Mga Bagong Tampok para sa Excel, Gumawa ng Excel Karamihan Madali at Makapangyarihang:

  • Pagsamahin ang Cell / Rows / Mga Haligi nang walang Pagkawala ng Data.
  • Pagsamahin at I-consolidate ang Maramihang Mga Sheet at Workbook.
  • Ihambing ang mga Ranges, Kopyahin ang Maramihang Ranges, I-convert ang Teksto sa Petsa, Conversion ng Unit at Pera.
  • Bilang ng Mga Kulay, Paging Mga Subtot, Advanced na Pagsunud-sunurin at Super Filter,
  • Higit pang Piliin / Isingit / Tanggalin / Teksto / Format / Link / Magkomento / Workbook / Worksheets Mga Tool ...

Screen shot ng Kutools for Excel

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.
    ISRA · 28 days ago
    there is any way we can add to eache repeated cell, a consecutive caracters? example
    KTE+0001

    KTE+0002
  • To post as a guest, your comment is unpublished.
    KAS · 2 months ago
    Is there a way to update the module to only duplicate new data? I'm working on an ongoing document and do not want the code to duplicate data that has been previously duplicated.
  • To post as a guest, your comment is unpublished.
    Gerardo Enrique Heras Araujo · 3 months ago
    hi, for me is no working, I want to remove letters and number duplicate is possible?
  • To post as a guest, your comment is unpublished.
    Naomi · 3 months ago
    This script seems to be exactly what I need, however, when I run it I am getting an error on the line Selection.Insert Shift:=x1Down

    Any suggestions on how I fix this?
  • To post as a guest, your comment is unpublished.
    Manuel F · 3 months ago
    Thanks! it has been a great solution for all my troubles!