关于入库 出库明细的一些问题

罗伊·穆斯唐

呃 有个问题麻烦各位前辈帮帮忙搞了一晚上了  我这个小菜鸟实在是无能为力了
在1658楼  麻烦各位了  两点了 睡觉了 扛不住了 在此希望各位前辈能帮帮忙  {:soso_e196:}
http://club.excelhome.net/thread-287461-166-1.html

shuyee

嘿嘿，帮你录了个宏，自己改改吧。是说把单据内容，贴到数据"入库明细"吧？不对再说啊。还有就是前面的人员之类的，没贴全，你自己注意啊。
Sub 宏1()
    Range("C6:I11").Select
    Selection.Copy
    Sheets("入库明细").Select
    Range("G4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("入库").Select
    Range("D12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("入库明细").Select
    Range("B4:B9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("入库").Select
    Range("D4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("入库明细").Select
    Range("A4:A9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("入库").Select
    Range("D12,D13,D14,H12,H13,D6:I11").Select
    Range("D6").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("D14").Select
End Sub