팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

쉼표로 구분 된 텍스트 문자열을 Excel의 목록 또는 행으로 변환하는 방법은 무엇입니까?

doc은 쉼표 값을 1로 변환합니다.

다음과 같이 쉼표로 구분 된 셀 값 목록이 있다고 가정하면 다음 쉼표로 구분 된 텍스트 문자열을 여러 행이나 열로 변환해야합니다. Excel에서 한 번에 여러 셀 값을 쉼표 구분 기호를 기준으로 행으로 분할하는 방법은 무엇입니까?

쉼표로 구분 된 텍스트 문자열을 VBA 코드가있는 행으로 변환하십시오.

Excel 용 Kutools를 사용하여 쉼표로 구분 된 텍스트 문자열을 행으로 변환하십시오.


쉼표로 구분 된 텍스트 문자열을 VBA 코드가있는 행으로 변환하십시오.


다음 VBA 코드는 여러 쉼표로 구분 된 셀 값을 열로 변환하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고있어. Alt + F11 키를 Excel에서 열고 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈, 다음 매크로를 모듈 창문.

VBA 코드 : 쉼표로 구분 된 텍스트 문자열을 행 또는 목록으로 변환

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice 2015924
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3. 그런 다음 F5 이 코드를 실행하려면 팝업 대화 상자가 나타나면 변환 할 데이터 범위를 선택하십시오. 스크린 샷을 참조하십시오.

doc은 쉼표 값을 2로 변환합니다.

4. 클릭 OK, 다음 대화 상자에서 결과를 출력 할 셀을 지정하십시오. 스크린 샷을 참조하십시오.

doc은 쉼표 값을 3로 변환합니다.

5. 딸깍 하는 소리 OK 버튼을 누르면 선택한 쉼표로 구분 된 셀 값이 행 목록으로 변환됩니다. 스크린 샷보기 :

doc은 쉼표 값을 4로 변환합니다.


Excel 용 Kutools를 사용하여 쉼표로 구분 된 텍스트 문자열을 행으로 변환하십시오.

당신이 있으면 Excel 용 Kutools그와 셀 분할 유틸리티를 사용하면 쉼표로 구분 된 셀 값을 원하는 쉼표 분리 문자를 기반으로 여러 행 또는 열로 빠르게 분할 할 수 있습니다.

Excel 용 Kutools : 300 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다..

설치 후 Excel 용 Kutools다음 단계를 따르십시오.

1. 쉼표 구분 기호를 기반으로 행으로 변환 할 셀 값을 선택하십시오.

2. 그런 다음 Kutools > 본문 > 셀 분할, 스크린 샷보기 :

doc은 쉼표 값을 5 5로 변환합니다.

3. 에서 셀 분할 대화 상자에서 행으로 분할 옵션 아래의 거래증명방식 섹션에서 구분 기호 지정 섹션, 확인 그 외 확인란을 선택한 다음 텍스트 상자에 쉼표를 입력하고 스크린 샷을 참조하십시오.

doc은 쉼표 값을 6 6로 변환합니다.

4. 그런 다음 Ok, 다른 대화 상자가 나타나 결과를 저장할 셀을 선택하라는 메시지가 표시됩니다 (스크린 샷 참조).

doc은 쉼표 값을 7로 변환합니다.

5. 그런 다음 Ok 버튼을 클릭하면 쉼표로 구분 된 셀이 쉼표 구분 기호를 기반으로 여러 행으로 분할됩니다 (스크린 샷 참조).

doc은 쉼표 값을 8로 변환합니다.

이 셀 분할 기능에 대한 자세한 내용을 보려면 클릭하십시오 ...

Excel 용 Kutools를 지금 다운로드하여 무료로 사용해보십시오!


데모 : Excel 용 Kutools를 사용하여 쉼표로 구분 된 텍스트 문자열을 행으로 변환하십시오.

Excel 용 Kutools: 200 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다. 지금 무료 평가판 다운로드 및 다운로드!


관련 기사 :

캐리지 리턴으로 셀을 여러 열 또는 행으로 분할하는 방법

Excel에서 셀 값을 여러 열로 나누는 방법?


Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 수식, 차트 그리고 당신이 전에 사용했던 것; 셀 암호화 비밀번호로; 메일 링리스트 만들기 그리고 이메일을 보내 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집); 레이아웃 읽기 (많은 셀을 쉽게 읽고 편집); 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 분할 셀 내용; 중복 행 / 열 결합... 중복 세포 방지; 범위 비교...
  • 복제 또는 고유를 선택하십시오. 행; 빈 행 선택 (모든 세포는 비어있다); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 랜덤 선택 ...
  • 정확한 사본 공식 참조를 변경하지 않는 다중 셀; 참조 자동 작성 여러 장에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 소계 생성 및 인쇄; 셀 내용과 주석 간 변환...
  • 수퍼 필터 (필터 구성표를 저장하고 다른 시트에 적용); 고급 정렬 월 / 주 / 일별, 빈도 등; 특수 필터 대담하고 기울임 꼴로
  • 통합 문서와 WorkSheets 결합; 키 열을 기준으로 테이블 병합 데이터를 여러 시트로 분할; 일괄 변환 xls, xlsx 및 PDF...
  • 300 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다. 60 일 무료 평가판 전체 기능.
kte 탭 201905

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    eviakhan · 2 years ago
    update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

    Sub RedistributeCommaDelimitedData_singleCell()

    'Updateby Extendoffice 201592

    Dim xArr() As String

    Dim xAddress As String

    Dim Rg As Range

    Dim Rg1 As Range

    On Error Resume Next

    xAddress = Application.ActiveWindow.RangeSelection.Address

    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

    If Rg Is Nothing Then Exit Sub

    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

    If Rg Is Nothing Then Exit Sub

    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

    If Rg1 Is Nothing Then Exit Sub



    ' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

    ' replace with this for single input cell for Rg:

    xArr = Split(Rg.value, ",")

    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

    Rg1.Parent.Activate

    Rg1.Resize(UBound(xArr) + 1).Select



    End Sub
  • To post as a guest, your comment is unpublished.
    Sid · 2 years ago
    Hi,
    I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help
    Thanks