本实例基于VBA程序，实现功能：在其中一个数据表中录入数据，点击录入按钮后所输入的数据自动进入到另外一个数据表中。该程序可以极大的方便仓库管理员等人员的工作效率。
看下图就知道本期案例实现的功能啦
数据录入表
数据表
注意在录入前，需要在数据表中手动创建对象列表。Ctrl L 创建列表区域A1:K2。
程序如下：
Sub 跨表数据录入()
'数据声明
Dim lastRow As Long '数据表中的数据行
Dim lstData As ListObject '数据表中的listObject对象
Dim rngTitle As Range '单元格对象用于遍历输入表中的标题
'设置listobject对象变量
Set lstData = Sheets("数据表").ListObjects(1)
'获取当前数据最后一行
lastRow = lstData.DataBodyRange.Rows.Count
'遍历数据录入表中的各个标题
For Each rngTitle In Union(Sheets("数据录入").Range("A3:A9"), Sheet1.Range("C6:C9"))
'将数据录入表中标题之右的单元格（即录入数据单元格）的值赋值给数据表中相应的列
lstData.ListColumns(rngTitle.Value).DataBodyRange(lastRow).Offset(1, 0).Value = rngTitle.Offset(0, 1).Value
Next rngTitle
End Sub
谢谢大家阅读，尝试
