아마도 이전에 일어 났을 것입니다. 워크 시트에 대한 데이터를 얻고 열 중 하나에 이름이 포함되어 있습니다. 유일한 문제는 이름이 모두 함께 묶여 있다는 것입니다. 예를 들어, 셀에는 “Allen Wyatt”,

그러나 오히려 한 열에 이름이 있고 오른쪽에 인접한 열에 성이 있습니다. 이름을 어떻게 분리합니까?

Excel의 Text to Columns 기능을 쉽게 사용하여 데이터를 분리 할 수 ​​있습니다. 다음 단계를 따르십시오.

  1. 분할하려는 셀 범위를 선택하십시오.

  2. 데이터 메뉴에서 텍스트를 열로 선택하십시오. Excel에서 텍스트를 열로 변환 마법사를 시작합니다. (그림 1 참조)

  3. 선택한 텍스트가 고정 너비인지 구분 된 텍스트인지 선택합니다.

(이름과 성 사이에 공백이있는 경우 텍스트가 구분됩니다.)

  1. 다음을 클릭하십시오.

  2. Excel에서 인식 할 구분 기호를 지정합니다. 이름을 분리하는 경우에는 구분자로 공백을 사용해야합니다.

  3. 마침을 클릭하십시오.

Excel은 선택한 범위의 셀을 분리하여 지정한 구분 기호에서 모든 텍스트를 분리합니다. Excel은 데이터를 보관하는 데 필요한 많은 열을 사용합니다.

데이터를 열 전체에 완전히 분산시키지 않으려면 매크로를 사용해야합니다. 예를 들어 셀에 “John Davis, Esq.”가 포함 된 경우 Text to Columns 기능을 사용하면 데이터가 세 개의 열로 분산됩니다. 첫 번째 열에는 “John”이, 두 번째 열에는 “Davis”가 쉼표), 세 번째는 “Esq”를 포함합니다. 데이터를 두 개의 열로 분할하려면 (하나는 “John”, 다른 하나는 “Davis, Esq.”) 다음 매크로가 도움이됩니다.

Sub PullApart()

Dim FirstCol As Integer, FirstRow As Integer     Dim RowCount As Integer     Dim ThisRow As Integer     Dim j As Integer, k As Integer     Dim MyText As String

FirstCol = ActiveWindow.RangeSelection.Column     FirstRow = ActiveWindow.RangeSelection.Row     RowCount = ActiveWindow.Selection.Rows.Count

For j = 1 To RowCount         ThisRow = FirstRow + j - 1         MyText = Cells(ThisRow, FirstCol).Text         k = InStr(MyText, " ")

If k > 0 Then             Cells(ThisRow, FirstCol + 1).Value = Mid(MyText, k + 1)

Cells(ThisRow, FirstCol).Value = Left(MyText, k - 1)

End If     Next j End Sub

이 매크로는 각 셀을 검사하고 선택한 셀의 첫 번째 공백까지 모든 것을 남겨두고 공백 뒤의 모든 항목을 오른쪽 열로 이동합니다.이 매크로의 유일한 “gottcha”는 다음을 확인하는 것입니다. 실행할 때 선택한 셀의 오른쪽 열에는 아무것도 없습니다.

_Note : _

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

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

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

이 팁 (2967)은 Mic에 적용됩니다. rosoft Excel 97, 2000, 2002 및 2003. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Pulling_Apart_Cells [Pulling Apart Cells].