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

• m.zmrzlina senior tag

  2015-10-13 19:08:12 #29030

  Ú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

  

  m.zmrzlina

  senior tag

  Problémám a következő:

  Adott egy szoftver amiben a szoftver által előállított táblázatot egy parancsgombbal vágólapra lehet tenni. A táblázat fixen 16 oszlop széles és változó /1700-1800/ sor hosszú. A vágólapra kitett adatot excel munkalapra illesztem további feldolgozásra.

  Az a gondom, hogy /nyilván a forrás szoftver hibájából/ a beillesztett tartomány végénre teljesen véletlenszerűen néhány cellában a képeken látható memóriaszemét kerül ami a további feldolgozásban problémákat okoz.

  

  

  A feladat az, hogy a további feldolgozás előtt ezt a szemetet kitöröljük. Az A oszlop sorszámozást tartalmaz és eddigi tapasztalataim alapján ahol a sorszámozás folytonossága megszakad ott van vége a hasznos adatnak.

  Hirtelen az alábbi Móricka megoldás jutott eszembe:

  Sub holavege()
  Range("A2").Select
  Do While ActiveCell.Offset(1, 0) = ActiveCell + 1
  ActiveCell.Offset(1, 0).Select
  Loop
  
  Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 10, 16)).ClearContents
  End Sub

  Ehelyett kéne egy profibb megoldás. Előre is köszi at ötleteket.

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