如何做到每输入一张出库单，第二张表的数据清单里都自动增加

china_hanjun

求大神帮处理出库单：每完成一张出库单，都会在数据清单中依次增加出库单明细，并保存明细表！

出库单

出库单明细表

谢谢各位大神！
出库单.rar (8.7 KB, 下载次数: 49)

2018-9-13 17:36 上传

点击文件名下载附件
出库单的原文件

谢谢

不知道为什么

这个很简单啊，对应的录入就可以了。

自己可以录制宏，体会下。

alstar

出库单.rar (16.07 KB, 下载次数: 82)

2018-9-13 18:37 上传

点击文件名下载附件

由衷的希望老百姓能吃得起药。

china_hanjun

alstar 发表于 2018-9-13 18:38
由衷的希望老百姓能吃得起药。

非常感谢！

少少飞翔

应该符合你的要求

iwangyi

Sub CC()
N = [F65536].End(3).Row
m = N - 6
With Sheets("数据明细")
rn = .[A65536].End(3).Row
rn = rn + 1
.Cells(rn, 1).Resize(m) = Cells(3, 3)
.Cells(rn, 2).Resize(m) = Cells(4, 3)
.Cells(rn, 3).Resize(m) = Cells(5, 3)
Range("H7").Resize(m, 2).Copy .Cells(rn, 4)
End With
End Sub

iwangyi

**********

xuminglei2003

测试无问题

Sub 提取()
Dim r%, arr()
With Sheet1
    arr = Array(.[c3], .[c4], .[c5], .[h7], .[i7])
    r = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheet2.Cells(r, 1).Resize(1, 5) = arr
End With
End Sub