合并多工作簿且按照列标题存放

图不安兔

论坛的各位老师：晚上好！麻烦帮忙修理一下附件的代码提速，谢谢！

图不安兔

麻烦老师帮帮我，多谢了！

cutecpu

        'ReDim brr0(1 To UBound(brr, 1) - 1, 1 To UBound(brr, 2))  
        ReDim brr0(1 To iRow - 1, 1 To iCol)

        'For i = 1 To UBound(brr, 1) - 1
        '    For j = 1 To UBound(brr, 2)
         For i = 1 To iRow - 1
            For j = 1 To iCol
                brr0(i, j) = brr(i + 1, j)
            Next   'j
        Next   'i

把 綠色 修改成 紅色

图不安兔

cutecpu 发表于 2022-12-15 10:16
'ReDim brr0(1 To UBound(brr, 1) - 1, 1 To UBound(brr, 2))  
        ReDim brr0(1 To iRow -  ...

谢谢您，cutecpu版主！谢谢！！！可否麻烦另行写VBA代码吗？

图不安兔

图不安兔 发表于 2022-12-15 19:06
谢谢您，cutecpu版主！谢谢！！！可否麻烦另行写VBA代码吗？

cutecpu老师：恳请您重新编写VBA代码，谢谢！

图不安兔

cutecpu 发表于 2022-12-15 10:16
'ReDim brr0(1 To UBound(brr, 1) - 1, 1 To UBound(brr, 2))  
        ReDim brr0(1 To iRow -  ...

cutecpu老师：恳请您重新编写VBA代码，谢谢！