合并工作表求助

EH258369

按“保障年份”为M2不带格式合并1分厂、2分厂数据到“合并结果表”（1分厂、2分厂数据已精简，实际数据比较多），下了版主的多“工作簿或多工作表汇总”参考，无奈新手总是出错。谢谢各位高人！

约定的童话

变量用的有点多了，效果应该还可以...好用记得评分哈，谢谢

Sub 合并()
    Dim i, n, m, p, j, arr, brr(), sht As Worksheet
    m = [m2]: p = 1
    For Each sht In Worksheets
        If sht.Name <> ActiveSheet.Name Then
            i = [a65536].End(3).Row + 1
            arr = sht.[a1].CurrentRegion
            ReDim brr(1 To UBound(arr), 1 To 11)
            For n = 2 To UBound(arr)
                If arr(n, 10) = m Then
                    For j = 1 To 11
                        brr(p, j) = arr(n, j)
                    Next
                    p = p + 1
                End If
            Next
            ActiveSheet.Range("A" & i).Resize(UBound(brr), 11) = brr
            p = 1
        End If
    Next
End Sub

EH258369

谢谢大哥！可合并数据不对啊，保障年份为2019的只有相同的5条数据，其实1分厂有两个，2分场有五个，

约定的童话

EH258369 发表于 2019-6-6 13:43
谢谢大哥！可合并数据不对啊，保障年份为2019的只有相同的5条数据，其实1分厂有两个，2分场有五个，

已在2楼修复了，按错了一个字符：arr(n,j)

EH258369

呵呵！还是有点问题，只合并了2分厂数据，1分厂数据未采集

EH258369

我再学习学习！工作簿中还有其他表，代码没有指定表名称吧

约定的童话

EH258369 发表于 2019-6-6 15:24
我再学习学习！工作簿中还有其他表，代码没有指定表名称吧

已更新，详见2楼，哈哈，这次不会错了

EH258369

已合符要求，太谢谢了！代码再消化吸收