우리는 문자열을 분리 엑셀 VBA에서 프로그램을보고 아래.

상황 :

Separate Strings in Excel VBA

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가

  1. 먼저, 우리는 형식 문자열을 입력 정수의 commaposition라는 변수의 전체 이름이라는 변수 및 유형 정수의 난이라는 변수를 선언합니다.

Dim fullname As String, commaposition As Integer, i As Integer

우리가 다루고있는 문제는 우리가 문자열을 분리하려는 엑셀 VBA를 알 필요가있다. 윌리엄스 경우 자넷 쉼표가 제 위치에있는 동안 스미스의 경우, 마이크 쉼표 6 위치에있을

  1. 우리는 엑셀에 입력 된 각 이름에 작업을 실행하기 위해 루프를 사용합니다. 첫째, 우리는 변수 전체 이름을 초기화합니다. 다음으로, 우리는 쉼표의 위치를 ​​찾기 위해 ‘측량기 기능을 사용합니다.

For i = 2 To 7

fullname = Cells(i, 1).Value

commaposition = InStr(fullname, ",")

  1. 마지막으로, 우리는 열 B에 쉼표와 C. 당신은 줄을 추가하여이를 달성 할 수있는 컬럼에 쉼표의 앞 부분 이후 부분을 작성하려는 :

Cells(i, 2).Value = Mid(fullname, commaposition + 2)

Cells(i, 3).Value = Left(fullname, commaposition - 1)

미드는 (전체 이름은 commaposition + 2) (이 정확히 이름입니다) 우리가 ‘commaposition + 2’문자에서 시작하는 전체 이름의 일부를 것을 의미합니다.

왼쪽 (전체 이름, commaposition – 1) (이 정확히 마지막 이름) 우리가 문자까지 처음부터 시작 ‘commaposition- 1’전체 이름의 일부를 것을 의미합니다.

루프를 닫을 것을 잊지 마십시오 4..

Next i

( “A7 A2”) 범위에 쉼표와 공백으로 구분 여섯 이름을 추가합니다 (5).

  1. 테스트 프로그램.

결과 :

Separate Strings Result