本实例基于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

谢谢大家阅读，尝试