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

• Delila_1 veterán

  #6902

  #6901 bandus

  2010-04-16 07:42:44

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  #6901 bandus

  #6901 bandus

  szisztok!

  már volt hasonló kérdésem, de akkor csak a kész excel fájt kaptam meg, így most megint nem tudom megoldani a dolgot.

  egy hülye program kigyűjtött nekem adatokat, de sajnos ilyen csúnya módon:
  [link]

  ebből szeretnék két oszlopot csinálni, mégpedig úgy,hogy a B oszlopban meglévő számok alá, mindenhova kerüljön 4 üres sor a megfelelő számozással, és ezekhez a B oszlop beli értékekhez legyen párosítva a D, E, F, G oszlop.
  tehát a C2->a mostani D1, C3->E1, C4->F1 és C5->G1, ésígytovább. remélem érthető voltam.

  köszi a segítséget

  jah, és lenne még két fájlom, amit ugyanígy szeretnék megcsnálni.

  Üdv,
  bandus

  Ez a makró elintézi:

  Sub Rendez()
  Dim sor As Integer
  
  sor = 2
  Do While Cells(sor, 2) <> ""
  Range("B" & sor & ":B" & sor + 3).Select
  Selection.EntireRow.Insert
  Cells(sor, 3) = Cells(sor - 1, 4)
  Cells(sor + 1, 3) = Cells(sor - 1, 5)
  Cells(sor + 2, 3) = Cells(sor - 1, 6)
  Cells(sor + 3, 3) = Cells(sor - 1, 7)
  sor = sor + 5
  Loop
  Columns("D:G") = ""
  End Sub

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