|
글 설명이 어려워서 수정합니다 ^^;;
단추2를 누르면 ","로 텍스트를 나누게됩니다.
이 과정에서 A열의 텍스트만 나누어지는데
B열의 데이터를 덮어서 날려버리네요..
B열의 데이터도 같이 텍스트가 나누어지게 하고싶습니다.
=========================
1. [단추1]을 눌러서 txt file을 오픈하면 현재 저장된 화면이 나옵니다.
2. 파일의 [단추2]를 누르면 텍스트 나누기가되는데요..
3. A열에있는 내용만 나누기가 됩니다..
4. B열과 C열의 내용도 ","가 있을경우 같이 나누고 싶은데요..
정답좀 ㅠㅠ
* 엑셀을 열고 txt file을 불러들여서 마법사로 나누면 Sheet2처럼 이쁘게 구분이 됩니다..
===============================
텍스트나누기 VBA
Option Explicit
Sub unConCat()
Dim rngC As Range, rngAll As Range 'A열 각셀 및 전체셀을 넣을 영역 변수
Dim varTemp() As String '전체영역을 넣기위한 variant형 string 변수
Dim deLimiter As String '문자 구분자를 넣기 위한 변수
Application.ScreenUpdating = False '화면 업데이트 일시 정지
Set rngAll = Columns(1).SpecialCells(2) '전체 데이터 영역
deLimiter = "," '문자 구분자
For Each rngC In rngAll '전체영역의 각셀을 순환
varTemp = Split(rngC, deLimiter) '선택한 셀을 쪼개서 배열에 넣음
rngC.Offset(, 0).Resize(1, UBound(varTemp)) = varTemp
Next '각 셀(rngC)의 오른쪽 두번째 셀에 배열을 뿌려줌
Columns("A:CW").AutoFit 'C:G 열너비 자동
Set rngAll = Nothing '개체변수 초기화
End Sub
|
|