使用 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

我需要运行它进入

[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 处理，因为可能有数千行

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 列中的数据，我们需要更改 3 行代码：

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。