Excel VBAを使用してセル内のテキストの角括弧を挿入する

Question

Excel VBAコードを使用してセル内のテキストの周囲に角括弧を挿入することはできますか？

は、それは最初のカンマの前にテキストを検索する必要があり、最初のコンマの前には角括弧がない場合は、[]角括弧

セルA内のテキストは、この形式であるとそれを包みます。それはすべて私が私は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 

にそれを実行するために必要な1つのテキスト文字列

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 

が生成されます：

EDIT＃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を指すことになる細胞を意味するためです。