EXCEL 宏

把生产领料里的数据粘贴到 入库明细里面

Selection.Copy
    Sheets("入库明细").Activate
    Range("C10").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1).Select
    ActiveSheet.Paste
    Sheets("生产物料").Activate

ActiveCell.Offset(0,1).Select   再向右平移一个单元格

注意，上面B列数据里面不能有空格，否则会粘贴到中间

下面的代码是计算数据下方空白格的方式

所以，数据中间有空格也可以，但是不能有尾部（如：制单人）

如果有制单人的话，行必须大于代码中的1730

Dim hang As Integer
Selection.Copy
    Sheets("入库明细").Activate    
    hang = [b1730].End(3).Row + 1
    Cells(hang, "b").Select
    ActiveSheet.Paste
    Sheets("生产物料").Activate'
End Sub