文章预览
学习Excel技术，关注微信公众号： excelperfect 标签： VBA 我使用一个工作表来输入数据，使用另一个工作表来存储输入的数据，如下图 1 所示，在工作表“输入”中输入数据后，单击“添加”按钮。 图 1 那么刚才输入的数据会存储到工作表“数据库”中，如下图 2 所示。 图 2 实现上述效果的代码很简单直接，如下： Sub AddData() Dim wksEntry As Worksheet Dim wksData As Worksheet Dim lngLast As Long Set wksEntry = Worksheets( "输入" ) Set wksData = Worksheets( "数据库" ) lngLast = wksData.Range( "A" & Rows.Count).End(xlUp).Offset( 1 ).Row With wksData .Range( "A" & lngLast).Value = wksEntry.Range( "C2" ).Value .Range( "B" & lngLast).Value = wksEntry.Range( "C3" ).Value .Range( "C" & lngLast).Value = wksEntry.Range( "C4" ).Value .Range( "D" & lngLast).Value = wksEntry.Range( "C5" ).Value End With With w
………………………………
