Extraheren Juiste Woorden

Vanita heeft een werkblad dat verschillende combinaties van letters in elke cel van kolom A. Hij is op zoek naar een manier om de woorden uit die lijst die uitpakken "goede", wat betekent dat ze zijn te vinden in een spellingcontrole woordenboek bevat.

Ervan uitgaande dat de kolom bevat alleen woorden (zonder spaties, leestekens of zinnen), kunt u handmatig de lijst op deze manier:

  1. Maak een kopie van kolom A naar kolom B. U hebt nu twee identieke kolommen.
  2. Selecteer kolom B en lopen spellingcontrole.
  3. Iedere keer dat een spelling verandering wordt voorgesteld, accepteer het. Als je klaar bent, moet u kolom A als uw originele en kolom B als een spell gecontroleerde versie van kolom A.
  4. In kolom C, voer de formule = ALS (A1 = B1, B1, "") en kopieer de formule naar beneden. Deze formule toont slechts een woord in kolom C als het oorspronkelijke woord overeenkomt met de-ban gecontroleerde versie van het woord.
  5. Kopieer alle woorden in kolom C en gebruik Plakken speciaal om Waarden plakken in een andere locatie. Je hebt nu een lijst van de geldig gespelde woorden.

Als u nodig hebt om het validatieproces regelmatig uit te voeren, kunt u een macro gebruiken om uw definitieve lijst in plaats creƫren. De volgende macro stappen door de woordenlijst in kolom A en wist alle cellen die woorden bevatten die niet in het woordenboek. Na het controleren van alle woorden, het dan verwijdert alle gewist cellen.

Sub ExtractDictionaryWords ()
Dim rWords als Waaier
Dim rCell als Waaier

Application.ScreenUpdating = False
Set rWords = Range (Range ("A1"), _
Range ("A65536"). End (xlUp))
Voor Elke rCell In rWords
Als Niet Application.CheckSpelling (rCell.Value) Dan
rCell.Clear
End If
Volgende
On Error Resume Next
rWords.SpecialCells (xlCellTypeBlanks). _
Delete (xlShiftUp)
On Error GoTo 0
Stel rCell = Nothing
Set rWords = Nothing
Application.ScreenUpdating = True
End Sub

Vergeet niet-deze macro is opzettelijk destructief in zijn gedrag, wat betekent dat het ruimt cellen. Heeft u behoefte aan de oorspronkelijke gegevens, zult u de macro wilt uitvoeren op een kopie van de gegevens, niet op uw enige exemplaar.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (11.284) is van toepassing op Microsoft Excel 2007 en 2010. U kunt een versie van deze tip vinden voor de oudere menu-interface van Excel hier: extraheren Juiste Woorden.