Vanita는 A 열의 각 셀에 서로 다른 문자 조합이 포함 된 워크 시트를 가지고 있습니다. 그는 해당 목록에서 맞춤법 검사 사전에서 찾을 수있는 “적절한”단어를 추출하는 방법을 찾고 있습니다.

열에 단어 만 포함되어 있다고 가정하면 (공백, 구두점 또는 구 없음) 다음과 같은 방식으로 목록을 수동으로 확인할 수 있습니다.

  1. A 열을 B 열로 복사합니다. 이제 두 개의 동일한 열이 있습니다.

  2. B 열을 선택하고 맞춤법 검사를 실행합니다.

  3. 철자 변경이 제안 될 때마다 수락하십시오. 완료되면 A 열을 원본으로, B 열을 A 열의 맞춤법 검사 버전으로 지정해야합니다.

  4. C 열에 공식 = IF (A1 = B1, B1, “”)를 입력하고 공식을 아래로 복사합니다. 이 수식은 원래 단어가 맞춤법 검사 된 단어와 일치하는 경우에만 C 열에있는 단어를 표시합니다.

  5. C 열의 모든 단어를 복사하고 선택하여 붙여 넣기를 사용하여 값을 다른 위치에 붙여 넣습니다. 이제 철자가 올바른 단어 목록이 생겼습니다.

유효성 검사 프로세스를 정기적으로 수행해야하는 경우 대신 매크로를 사용하여 최종 목록을 만들 수 있습니다. 다음 매크로는 A 열의 단어 목록을 단계별로 실행하고 사전에없는 단어가 포함 된 모든 셀을 지 웁니다. 모든 단어를 확인한 후 지워진 모든 셀을 삭제합니다.

Sub ExtractDictionaryWords()

Dim rWords As Range     Dim rCell As Range

Application.ScreenUpdating = False     Set rWords = Range(Range("A1"), _       Range("A1048576").End(xlUp))

For Each rCell In rWords         If Not Application.CheckSpelling(rCell.Value) Then             rCell.Clear         End If     Next     On Error Resume Next     rWords.SpecialCells(xlCellTypeBlanks). _       Delete (xlShiftUp)

On Error GoTo 0     Set rCell = Nothing     Set rWords = Nothing     Application.ScreenUpdating = True End Sub

기억하십시오.이 매크로는 동작이 의도적으로 파괴적이므로 셀을 지 웁니다. 원본 데이터가 필요한 경우 유일한 사본이 아닌 데이터 사본에서 매크로를 실행하는 것이 좋습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (11284)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전은`link : / excel-Extracting_Proper_Words [Extracting Proper Words]`에서 찾을 수 있습니다.