如何实现按要求合并工作表内容，请查看附件内容。，麻烦各位大神出招，万分感谢！！！

excel110

如何实现按要求合并多个工作表内容，请查看附件内容。，麻烦各位大神出招，万分感谢！！！

xiangbaoan

Sub 工作表合并()
Dim arr, r&, s%
Sheets("PM-报价").UsedRange.Offset(2) = ""
r = 3
For s = 3 To Sheets.Count - 1
    arr = Sheets(s).[a3:l888] '这个范围可自行调整
    With Sheets("PM-报价")
        .Range("a" & r).Resize(UBound(arr), UBound(arr, 2)) = arr
        r = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    End With
Next
End Sub '分表中数据不连续，有空行，请自行调整规范。

excel110

xiangbaoan 发表于 2017-2-28 15:53
Sub 工作表合并()
Dim arr, r&, s%
Sheets("PM-报价").UsedRange.Offset(2) = ""

非常感谢！

李公子2017

在a2单元格中输入快递单号，如何让b2自动识别快递公司。类似快递100