Kvitte seg med Web Stuff

March 22  by Eliza

Grant regelmessig kopierer informasjon fra websider og pastaer at informasjon i regneark. Han ender opp med ikke bare med rådata, men også med andre elementer, for eksempel boksene, bilder, logoer, etc. Grant ønsker en enkel måte å bli kvitt alle disse ikke-dataelementer.

Det første som de fleste prøver er å bruke til spesialundervisning, på denne måten:

  1. Trykk F5. Excel viser Gå til dialogboksen.
  2. Klikk på Special knappen. Excel viser Gå til Special dialogboksen. (Se figur 1)

    Kvitte seg med Web Stuff

    Figur 1. Gå til Special dialogboksen.

  3. Velg Objekter alternativet.
  4. Klikk på OK.

Når du gjør dette, velger Excel flere av objektene i regnearket, og du kan deretter trykke på slettetasten for å bli kvitt dem. Problemet er at denne metoden velger ikke alle de ikke-dataelementene i regnearket; det bare velger en undergruppe av dem-de elementene som anses som "objekter" av Excel.

En bedre løsning er å bruke en makro til å velge alle figurene i regnearket og deretter slette dem. Dette er ganske enkelt å gjøre, ved hjelp av en makro som dette:

Sub DeleteAllShapes1 ()
Dim SHP Som Shape
For Hver SHP I ActiveSheet.Shapes
shp.Delete
Neste
End Sub

Makroen bare looper gjennom hver form på det aktive regnearket og sletter hver enkelt. Du kan utvide på makro bare litt ved å ha det også slette alle hyperkoblinger som er limt inn i regnearket. Alt som trengs er tillegg av en enkelt linje:

Sub DeleteAllShapes2 ()
Dim SHP Som Shape
For Hver SHP I ActiveSheet.Shapes
shp.Delete
Neste
ActiveSheet.Hyperlinks.Delete
End Sub

Om for noen merkelig grunn, disse makroene ikke kvitte seg med alle de ikke-dataelementer du vil fjerne, det er en annen tilnærming du kan bruke: gjøre en stopp i NotePad før Excel. Bare lim dine Web data inn i et tomt NotePad dokument, deretter velger du denne informasjonen (etter at den er limt) og kopiere den tilbake til utklippstavlen. Deretter limer det inn i Excel. Det eneste som er igjen skal være rett data.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2881) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Kvitte seg med Web Stuff.