VBA를 사용하여 쉼표 문자열을 행으로 변환하는 것은 잘 작동하지만 이제 브레이크 아웃을 열 A의 값과 일치시켜야 합니다. 예
열 A에는 "나무: 열 B는 쉼표 문자열이었습니다: 층층나무, 애쉬, 단풍나무, 느릅나무, 사과.
다음과 같이 표시하려면 어떻게 해야 합니까?
고맙습니다
열 A에는 "나무: 열 B는 쉼표 문자열이었습니다: 층층나무, 애쉬, 단풍나무, 느릅나무, 사과.
다음과 같이 표시하려면 어떻게 해야 합니까?
| [글꼴=칼리브리]Current[/세례반] | |
| [글꼴=칼리브리]나무[/세례반] | [글꼴=칼리브리]층층나무, 재, 단풍나무, 느릅나무, 사과[/세례반] |
| [글꼴=칼리브리]필요[/세례반] | |
| [글꼴=칼리브리]나무[/세례반] | [글꼴=칼리브리]층층 나무[/세례반] |
| [글꼴=칼리브리]나무[/세례반] | [글꼴=칼리브리]애쉬[/세례반] |
| [글꼴=칼리브리]나무[/세례반] | [글꼴=칼리브리]단풍[/세례반] |
| [글꼴=칼리브리]나무[/세례반] | [글꼴=칼리브리]느릅 나무[/세례반] |
| [글꼴=칼리브리]나무[/세례반] | [font=Calibri]애플 [/font] |
공개 하위 textToColumns()
ARange = 범위("A:A") 설정
BRange = Range("B:B") 설정
CRange = 범위("C:C") 설정
설정 DRange = 범위("D:D")
Dim arr()을 문자열로
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
세트 아웃 = 워크시트.추가
out.Name = "아웃"
출력 행 = 2
i = 2 ~ lr의 경우
arr = 분할(ARange(i), ",")
j = 0의 경우 UBound(arr)로
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
아웃로우 = 아웃로우 + 1
다음 j
다음 i
최종 하위
나는 헤더를 하지 않았거나 출력 시트를 제대로 다루지 않았지만 기본적으로 무슨 일이 일어나고 있는지 볼 수 있습니다.
ARange = 범위("A:A") 설정
BRange = Range("B:B") 설정
CRange = 범위("C:C") 설정
설정 DRange = 범위("D:D")
Dim arr()을 문자열로
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
세트 아웃 = 워크시트.추가
out.Name = "아웃"
출력 행 = 2
i = 2 ~ lr의 경우
arr = 분할(ARange(i), ",")
j = 0의 경우 UBound(arr)로
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
아웃로우 = 아웃로우 + 1
다음 j
다음 i
최종 하위
나는 헤더를 하지 않았거나 출력 시트를 제대로 다루지 않았지만 기본적으로 무슨 일이 일어나고 있는지 볼 수 있습니다.
- 페이지 :
- 1
이 게시물에 대한 답변이 없습니다.