【来日复制粘贴】跨sheet的数据录入

效果：



录入Sheet2:



代码的含义需自己点明一下，方便日后用起来瞬间理解它的运行逻辑。

Sub haha()

Dim lastRow As Long
Dim lstData As ListObject
Dim rngTitle As Range

Set lstData = Sheet2.ListObjects(1)

lastRow = lstData.DataBodyRange.Rows.Count

    For Each rngTitle In Union(Sheet1.Range("A4:A10"), Sheet1.Range("C7:C10"))      'rngTitle在这里被设定为两个含标题的竖列
    
         '下句中，在表对象对应列【listcolumns(rngTitle.Value）表示】的数据区域最后一行【Datbodyrange（lastrow)表示】相对位置向下偏移一行的单元格里赋予
        lstData.ListColumns(rngTitle.Value).DataBodyRange(lastRow).Offset(1, 0).Value = _
        rngTitle.Offset(0, 1).Value                                                 'rngTitle Range对象向右偏移一行的值。
    Next rngTitle
    

End Sub

2015-03-22 22：21：

没错，这是篇比较2的文章。特意需要记录的原因是现阶段老是想不起来这个offset的用法和意义！