在日常的办公场景中，如何高效处理大量的Excel数据是许多人的痛点。今天为大家分享一段实用的VBA代码，教你如何提取Excel数据中的特定内容，并运用数组优化操作速度。无论是报表处理还是数据分析，这一技巧都能为你增添工作效率。

Excel中有A列有数据，其中部分内容是带有中括号 [] 的结构，我们只需要提取中括号后的信息并写到相邻的一列。这乍看很复杂，但借助VBA，我们可以轻松解决这一问题，同时让代码运行更快！

实现效果如下：

代码如下：

Sub 提取中括号后内容_数组版()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sourceData As Variant
    Dim resultArray() As Variant
    Dim startTime As Single, endTime As Single ' 定义计时变量

    ' 记录开始时间
    startTime = Timer

    ' 获取工作表和最后一行
    Set ws = ThisWorkbook.Sheets(1) ' 根据需要修改为你的工作表
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取A列最后一行

    ' 将A列数据加载到数组中
    sourceData = ws.Range("A2:A" & lastRow).Value ' 从A2读取到最后一行数据

    ' 定义结果数组，与源数据大小一致
    ReDim resultArray(1 To UBound(sourceData, 1), 1 To 1)

    ' 遍历数组提取中括号后的内容
    For i = 1 To UBound(sourceData, 1)
        If InStr(sourceData(i, 1), "]") > 0 Then
            ' 获取"]" 后的内容
            resultArray(i, 1) = Trim(Mid(sourceData(i, 1), InStr(sourceData(i, 1), "]") + 1))
        Else
            ' 如果没有中括号则设置为空
            resultArray(i, 1) = ""
        End If
    Next i

    ' 将结果数组写入B列，从B2开始
    ws.Range("B2:B" & lastRow).Value = resultArray

    ' 记录结束时间
    endTime = Timer

    ' 显示运行时间
    MsgBox "提取完成！运行时间为: " & Format(endTime - startTime, "0.00") & " 秒", vbInformation
End Sub

通过运用数组来处理Excel数据，不仅可以极大地提升执行效率，还能简化代码逻辑，减少冗余操作，让数据处理更加快速精准。尤其是在面对海量数据时，数组操作展现出的性能优势不容忽视。无论你是报表分析师、数据处理人员，还是热爱提升办公效率的职场达人，这一技巧都能帮助你在繁杂的工作中游刃有余。

提升工作效率其实没有捷径，但通过掌握一些实用的方法与工具，你会发现办公不仅变得高效，还能带来更多乐趣。希望这篇文章能为你打开Excel编程的新思路。如果你觉得实用，不妨动手试试，或者分享给身边的小伙伴，让更多人受益！