自动填充某列数据（可多列）

ttlrow=ActiveSheet.UsedRange.Rows.Count;//获取表格的所有行数

Range("A2:C2").Select();//要复制的区域
Selection.Copy(undefined);
Range("A3:C"+ttlrow).Select();//从第3行对应区域开始粘贴数据
ActiveSheet.Paste(undefined, undefined);