[Techinfo] Excel sortöbbszörözés

[Kámán Tibor]

Szia! Pont most (tegnap) csináltam hasonlót, picit átalakítottam neked: Sub SorSor()    Oszlop = 9 ' Ezt az oszlopot nézi, hogy hányszor ismételjen  
   SorokSzama = Cells(Rows.Count, Oszlop).End(xlUp).Row
   i = 1
   While i <= SorokSzama
        Db = ActiveSheet.Cells(i, Oszlop).Value        If Db > 1 Then
              Rows(i).Select
              For j = 1 To Db - 1
                 Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
              Next j
              Rows(i + Db - 1).Select
              Selection.Copy
              For j = 1 To Db - 1
                 Rows(i + j - 1).Select
                 ActiveSheet.Paste
              Next j
              
              SorokSzama = SorokSzama + Db - 1
              i = i + Db - 1
        End If
        i = i + 1
    Wend
End Sub Biztos van jobb is, de jól működik. K. Tibor
 
Kiss Zsolt <rgl at hb.sulinet.hu> írta:
>Sziasztok!
>
>Makro guruktól kérdezem, mennyire bonyolult lenne egy olyan makrót
>összedobni, ami azt csinálja, hogy az I oszlopban lévő szám értéke ha >1,
>akkor érték-1 db. sort szúr be ugyanolyan tartalommal, majd megy a következő
>sorra. Ha =1, akkor goto next line.
>
>Zsolt
>
>_______________________________________________
>Techinfo mailing list
>Techinfo at lista.sulinet.hu
>Fel- és leiratkozás: http://lista.sulinet.hu/cgi-bin/mailman/listinfo/techinfo
>Illemtan: http://www.szag.hu/illemtan.html
>Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: <http://lista.sulinet.hu/pipermail/techinfo/attachments/20190822/852ca02f/attachment.html>