求录入保存代码

qijinping

将入库表的数据录入入库数据表里

mmx1122

做个程序吧

莱柯007

还没有学会，暂时帮不了

ugvfxwy

就是操作数据的过程，一下是范例，应该可以用的到：
Sub ruku()
'变量N为提取表的数据行数
N1 = Application.CountA(Sheet1.Range("A:A"))
N2 = Application.CountA(Sheet2.Range("A:A"))
If N1 = 1 Then
    MsgBox ("请输入数据")
End If
For H = 2 To N1
    N2 = N2 + 1
    For L = 1 To 12
        Sheet2.Cells(N2, L) = Sheet1.Cells(H, L)
        Sheet1.Cells(H, L) = ""
    Next
Next
End Sub