效果:
录入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的用法和意义!