Excel VBA를 사용하여 셀의 일부 텍스트 주위에 대괄호를 삽입하십시오.

Question

Excel VBA 코드가있는 셀의 일부 텍스트 주위에 대괄호를 삽입 할 수 있습니까?

그것은 첫 번째 쉼표 전에 텍스트를 찾을 필요가 첫 번째 쉼표 이전에는 괄호가없는 경우, [] 대괄호

셀 A의 텍스트는이 형식에 함께 포장. 그것은

A12345, blah, blah, blah, blah blah 
[B45678], blah, blah, blah, blah blah 
C97665, blah, blah, blah, blah blah 
D89798, blah, blah, blah, blah blah 
[B97494], blah, blah, blah, blah blah 
Y34987, blah, blah, blah, blah blah 

은 내가 더 VBA 지식이 없지만 행

을 수천있을 수로 가장 VBA를 사용하여 처리 할 것이라고 생각

[A12345], blah, blah, blah, blah blah 
[B45678], blah, blah, blah, blah blah 
[C97665], blah, blah, blah, blah blah 
[D89798], blah, blah, blah, blah blah 
[B97494], blah, blah, blah, blah blah 
[Y34987], blah, blah, blah, blah blah 

으로 실행하는 데 필요한 모든 하나 개의 텍스트 문자열에

: 같은 데이터

Answer 1

이 작은 매크로를 실행 :

Sub bracket() 
    Dim r As Range, N As Long, s As String 
    Dim i As Long 

    N = Cells(Rows.Count, "A").End(xlUp).Row 

    For i = 1 To N 
     ary = Split(Cells(i, 1).Text, ",") 
     If Left(ary(0), 1) = "[" Then 
     Else 
      ary(0) = "[" & ary(0) & "]" 
      Cells(i, 1).Value = Join(ary, ",") 
     End If 
    Next i 
End Sub 

가 생성됩니다

이

편집 # 1 :

은 우리가 필요로하는 열 E에서 데이터로 작업하는 원래의 코드를 적용하기 변경하려면 코드 줄 :

Sub bracket() 
    Dim r As Range, N As Long, s As String 
    Dim i As Long 

    N = Cells(Rows.Count, "E").End(xlUp).Row 

    For i = 1 To N 
     ary = Split(Cells(i, 5).Text, ",") 
     If Left(ary(0), 1) = "[" Then 
     Else 
      ary(0) = "[" & ary(0) & "]" 
      Cells(i, 5).Value = Join(ary, ",") 
     End If 
    Next i 
End Sub 

Cells(13,1)은 A13 및 Cells(13,5) 셀 E13 참조 할 셀을 참조하기 때문이다.