Új hozzászólás Aktív témák

  • Fferi50

    őstag

    válasz m.zmrzlina #45328 üzenetére

    Szia!űjEsetleg csak a feltétel tartományokat beolvasni:
    Arra gondoltam, hogy csak azokat az oszlopokat olvasd be külön-külön tömbökbe, amelyekre a feltételt meg kell vizsgálni. Így lesz 2-3 (esetleg több) egydimenziós(nak tűnő) tömböd, amelyeknek azonos sorában lesznek az egy sorhoz tartozó vizsgálandó elemei, tehát egy ciklussal elég végigmenni a vizsgálat során.
    A feltételnek megfelelő sorok számát egy szövegváltozóban gyűjteném összePe Pl.
    dim sorkell as string
    sorkell="1:1"
    sorkell=sorkell & ",5:5")
    sorkell=sorkell & ",9:9")
    Persze ezeket a feltétel megfelelősége esetén.
    A hasonlítás megtörténte után pedig:
    Sheets(forrás).Usedrange.Range(sorkell).Copy Sheets(eredmény).Range("A1")
    egy lépésben átmásolja a teljes szűrt tartományt.
    Üdv.

Új hozzászólás Aktív témák