Thomas에는 문장 및 구와 같은 텍스트 값만 포함 된 열이 있습니다. 일부 셀은 텍스트를 빨간색으로 표시하고 나머지는 검은 색으로 표시합니다. 그는 검정 텍스트 셀이 열에 남아 있고 빨간색 텍스트 셀이 다음 열로 이동되도록 텍스트를 분리하는 방법을 원합니다.

이 문제에 접근 할 수있는 몇 가지 방법이 있습니다. 가장 쉬운 방법은 텍스트 값이있는 열을 단순히 정렬하거나 필터링하는 것입니다. Excel을 사용하면 텍스트 색을 기준으로 필터링하고 정렬 할 수 있습니다. 즉, 빨간색 텍스트 셀만 보거나 모든 빨간색 텍스트 셀을 연속 범위에 넣을 수 있습니다. 그런 다음 빨간색 텍스트 셀을 잘라내어 다음 열에 붙여 넣는 것은 쉬운 작업입니다.

예를 들어 다음은 정렬 방법입니다.

  1. 텍스트 값이 포함 된 셀을 선택하십시오.

  2. 리본의 데이터 탭을 표시합니다.

  3. 정렬 및 필터 그룹에서 정렬 도구를 클릭합니다. Excel은 정렬 대화 상자를 표시합니다.

  4. 정렬 기준 드롭 다운 목록을 사용하여 글꼴 색상을 선택합니다.

  5. 순서 드롭 다운 목록을 사용하여 정렬 된 목록에서 먼저 표시 할 색상을 나타냅니다. (여기에서 빨간색을 선택합니다. 드롭 다운 목록에는 1 단계에서 선택한 범위에서 감지 된 각 색상이 포함됩니다.)

  6. 확인을 클릭하십시오.

이제 셀 범위의 시작 부분에 5 단계에서 지정한 색상으로 셀이 색상별로 정렬됩니다. 쉽게 복사하거나 다른 열로 이동할 수 있습니다. 글꼴 색상을 기준으로 텍스트 값을 필터링하려는 경우 동일한 일반 단계를 사용할 수 있습니다.

원하는 경우 매크로를 사용하여 빨간색 텍스트 셀을 이동할 수도 있습니다.

다음은 셀 값과 글꼴 색상을 오른쪽으로 한 셀 복사하는 예입니다.

Sub MoveRedText1()

Dim c As Range

If Selection.Columns.Count > 1 Then Exit Sub

For Each c In Selection         If c.Font.Color = vbRed Then             c.Offset(0, 1) = cell.Value             c.Offset(0, 1).Font.Color = vbRed             c.ClearContents             c.Font.Color = vbBlack         End If     Next c End Sub

매크로를 사용하려면 분석 할 셀을 선택한 다음 매크로를 실행하면됩니다. 이동중인 셀의 모든 서식을 복사하지는 않습니다. 이것이 중요한 경우 실제로 훨씬 더 간단한 매크로를 사용하여 이동할 수 있습니다.

Sub MoveRedText2()

Dim c As Range

For Each c In Selection         If c.Font.Color = vbRed Then _           c.Cut Destination:=c.Offset(0, 1)

Next c End Sub

이러한 매크로 중 하나를 사용하고 빨간색 텍스트 셀이 이동하지 않으면 셀이 실제로 빨간색 텍스트를 사용하지 않기 때문일 수 있습니다. Excel에 표시 할 수있는 빨간색 음영은 여러 가지가 있으므로 적절한 글꼴 색상을 확인하려면 매크로를 조정해야합니다.

_ 참고 : _

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

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

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

이 팁 (12604)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.