VBA 코드 도움말

유사한 작업이 있는데

문자수 확장(ra As Range) As String

'Dim ra As String

'ra = "A1-A2, A4, A5, A9-A12, B15, B8-B13"

문자열로 희미한 Txt, 문자열로 Tt

긴 길이로 희미한 길이

p>

i를 길게, j를 길게, 아니오

reTxt를 문자열로 희미하게

arTx를 변형으로 작게, oTxt() As String

'텍스트를 구분 기호로 구분하고 텍스트가 없으면 종료한 후 otxt 배열에 저장합니다.

reTxt = ""

arTx = Split (ra.Text, ", ")

If UBound(arTx) lt; 0이면 함수 종료

ReDim oTxt(UBound(arTx))

oTxt = arTx

'For i = 0 To UBound(arTx)

'oTxt(i) = arTx(i)

'다음 i

'루프 배열 otxt 텍스트의 각 단락을 커넥터 "-"와 비교

For j = 0 To UBound(oTxt)

'Debug.Print oTxt(j)

arTx = Split(oTxt(j), "-")

'커넥터 앞의 시작 번호는 반환 문자열 retxt에 직접 추가될 수 있습니다.

reTxt = reTxt amp; arTx(0 ) amp; ","

'- 커넥터 뒤에 여전히 문자가 있으면 마지막 숫자와 같아질 때까지 중간 숫자를 추가하세요.

'먼저 숫자의 첫 번째 문자가 일치하는지 확인하세요.

If UBound(arTx) gt; Then

Lengthtxt = Len(oTxt(j))

'시작 숫자 문자 코드를 txt로 가져옵니다.

Txt = ""

For i = 1 To Lengthtxt

Tt = Mid(arTx (0), i, 1)

Case Asc(Tt) 선택

Case Asc("a") To Asc("z")， Asc("A") To Asc("Z")

Txt = Txt amp; Tt

Case Asc("0") To Asc("9")

종료 대상

선택 종료

다음 i

'끝 숫자의 문자 코드가 시작 숫자와 일치하는지 확인한 후 반환 문자열에 중간 숫자를 추가합니다. 루프에서

If left(arTx(1), Len(Txt)) = Txt Then

No = Val(Replace(arTx(0), Txt, ""))

Do

No = 아니요 1

Tt = Txt amp; If Tt lt;gt "" Then reTxt = reTxt 앰프;

amp; ","

Tt = arTx(1)까지 반복

End If

End If

다음 j

'반환된 문자열 출력

'Debug.Print reTxt

If right(reTxt, 1) = "," Then reTxt = left(reTxt, Len(reTxt ) - 1)

문자수 확장 = reTxt

함수 종료