VBA实现数组元素批量输出至Excel工作表的问题求助

先梳理你原代码里的核心问题：

• 变量rows1未赋值，你定义了rowsShow却没把值传给rows1，导致数组arr读取的范围错误
• 循环变量不匹配：For Each item1 In arr对应Next text，变量名完全不一致
• 每次循环都新建工作表，导致每个数组元素生成独立工作表，而非在同一表输出
• rows2每次循环都重置为1，会覆盖之前行的内容
• 引用了未定义的变量item，实际循环变量是item2
• 未将原数组元素（item1）对应写入A列

以下是修正后的完整代码，实现所有元素纵向排列，原数组元素在A列，匹配结果在B列的需求：

Sub toExcel()
    Dim arr() As Variant
    Dim rows1 As Long ' 用Long避免行号超过Integer上限
    Dim regEx As New RegExp
    Dim outputRow As Long ' 记录输出的当前行号
    Dim mc As MatchCollection
    Dim item1 As Variant
    Dim item2 As Variant
    
    ' 配置正则表达式
    regEx.Global = True
    regEx.IgnoreCase = True
    regEx.Pattern = "\w+(_Test)"
    
    ' 读取table1的A列数据到数组
    With ThisWorkbook.Worksheets("table1")
        rows1 = .Cells(.Rows.Count, "A").End(xlUp).Row
        arr = .Range("A1:A" & rows1).Value
    End With
    
    ' 准备输出工作表（如果table2不存在则新建，否则清空内容）
    Dim outputWs As Worksheet
    On Error Resume Next
    Set outputWs = ThisWorkbook.Worksheets("table2")
    On Error GoTo 0
    If outputWs Is Nothing Then
        Set outputWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        outputWs.Name = "table2"
    Else
        ' 清空已有内容（若需要保留表头可删除此行）
        outputWs.Cells.Clear
    End If
    
    outputRow = 1 ' 初始化输出起始行
    
    ' 遍历数组处理每个元素
    For Each item1 In arr
        Set mc = regEx.Execute(item1)
        If mc.Count > 0 Then
            ' 遍历每个匹配结果
            For Each item2 In mc
                outputWs.Range("A" & outputRow).Value = item1 ' 原元素写入A列
                outputWs.Range("B" & outputRow).Value = item2 ' 匹配结果写入B列
                outputRow = outputRow + 1 ' 行号递增
            Next item2
        Else
            ' 无匹配结果时也写入原元素（不需要可删除此段）
            outputWs.Range("A" & outputRow).Value = item1
            outputRow = outputRow + 1
        End If
    Next item1
End Sub

关键修复说明： #

• 修正变量赋值与引用错误，确保数组正确读取table1的所有行数据
• 用outputRow统一记录输出位置，避免每次循环重置行号导致覆盖
• 复用table2工作表（不存在则新建），不再每次循环新建工作表
• 把原数组元素item1对应写入A列，匹配结果item2写入B列，实现一一对应
• 改用Long类型存储行号，避免Excel行号超过Integer（32767）的上限问题
• 处理了无匹配结果的情况（可根据需求调整是否保留无匹配的原元素）

内容的提问来源于stack exchange，提问作者lemurdroid