首先先遍历所有的sheet，循环一遍。
在一个sheet中，先取到UsedRange.Rows.Count 和UsedRange.Columns.Count
在最大行和最大列内，先找到“物料（以单件计算）”这格的row和column
然后row + i 找到这一区域的最后一行。比如row+6
得到一下range
Range(Cells(row+2 , column), Cells(row+ 6, column+6))
把这个range copy到新的sheet中就可以了
range.copy
然后继续循环遍历。
