Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Miten rinnastetaan rivejä, jotka perustuvat solun arvoon sarakkeessa?

Esimerkiksi minulla on joukko tietoja, jotka sisältävät luettelon numeroista sarakkeessa D ja nyt haluan kopioida kaikki rivit useita kertoja numeron D sarakkeiden perusteella saadaksesi seuraavan tuloksen. Miten voin kopioida rivit useita kertoja Excelin soluarvojen perusteella?

doc kopioi rivit solun 1 avulla

Kopioi rivit useita kertoja solu-arvoihin perustuen VBA-koodilla


nuoli sininen oikeus kupla Kopioi rivit useita kertoja solu-arvoihin perustuen VBA-koodilla

Jos haluat kopioida ja kopioida kaikki rivit useita kertoja solujen arvoihin perustuen, seuraavaa VBA-koodia voi auttaa sinua tekemällä näin:

1. Pidä alhaalla ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Klikkaus liite > Moduulit, ja liitä seuraava koodi Moduulit Ikkuna.

VBA-koodi: moninkertaiset rivit useita kertoja solujen arvon perusteella:

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. Paina sitten F5 avain tämän koodin suorittamiseen, kaikki rivit on monistettu useaan kertaan sarjan D soluarvon perusteella, kuten tarvitset.

Huomautuksia: Edellä olevassa koodissa kirjain A ilmaisee tietoluvan aloituskolon ja kirjaimen D on sarakekirja, jonka haluat kopioida rivejä. Vaihda ne tarpeen mukaan.



Suositeltavat tuottavuustyökalut

Office-välilehti

kulta star1 Tuo kätevät välilehdet Exceliin ja muihin Office-ohjelmistoihin, kuten Chrome, Firefox ja uusi Internet Explorer.

Kutools for Excel

kulta star1 Hämmästyttävä! Lisää tuottavuutta 5 minuutissa. Älä tarvitse mitään erikoistaitoja, paitsi kaksi tuntia päivässä!

kulta star1 300 Excelin uudet ominaisuudet, Excelin ansiosta helppo ja tehokas:

  • Yhdistä solu / rivit / sarakkeet ilman tietojen menettämistä.
  • Yhdistä ja yhdistä useita arkkeja ja työkirjoja.
  • Vertaa alueita, kopioi useita alueita, muuntaa tekstin päivämäärän, yksikön ja valuutan muuntamisen.
  • Laske värit, hakulausekartat, Advanced Sort ja Super Filter,
  • Lisää Valitse / Lisää / Poista / Teksti / Muoto / Link / Kommentti / Työkirjat / Työtaso Työkalut ...

Kutools for Excel -näyttö

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!