EXCEL快速录入。将指定内容保存至SHEET2。

703188390

设置一个按钮将红色字体保存到备份表格。   第5至第9行可能是一行数据也可能是5行数据，谢谢。

iwangyi

以前做了一个可参考一下
Sub BC()
n = Sheet2.Range("A65536").End(xlUp).Row
If Cells(3, "h") = Sheet2.Cells(n - 1, 1) Then MsgBox "已保存": Exit Sub
rl = Range("b18").End(xlUp).Row
X = 12 - rl
With Sheet2
Cells(3, "h").Copy .Cells(n + 1, "a").Resize(X)     '复制编号
Cells(4, "d").Copy .Cells(n + 1, "b").Resize(X)     '复制客户名
Cells(4, "i").Copy .Cells(n + 1, "c").Resize(X)     '复制送货日期
Cells(6, "c").Resize(X, 6).Copy .Cells(n + 1, "d")  '复制清单
Cells(19, "C").Copy .Cells(n + 1, "k").Resize(X)    '复制地址
Cells(19, "E").Copy .Cells(n + 1, "l").Resize(X)    '复制电话
Cells(21, "C").Copy .Cells(n + 1, "m").Resize(X)    '复制送货单位及经手人
Cells(21, "G").Copy .Cells(n + 1, "n").Resize(X)    '复制收货单位及经手人
End With
End Sub

703188390

iwangyi 发表于 2018-8-6 15:54
以前做了一个可参考一下
Sub BC()
n = Sheet2.Range("A65536").End(xlUp).Row

不台会改，已经在论坛找到了，但还是非常感谢。