Excel-VBA：不同Sheet间的列、行复制

小鸿叔

于 2018-11-23 13:53:12 发布

阅读量1.1w

点赞数 2

文章标签：行列复制 Excel

本文链接：https://blog.csdn.net/jyh_jack/article/details/83822015

版权

'Sheet1中先在第3列加入一个空列，格式参照右侧，参照左侧用xlFormatFromLeftOrAbove
Sheet1.Columns(3).Insert , CopyOrigin:=xlFormatFromRightOrBelow

'将Sheet2中的第3列复制到Sheet1中第3列
Sheet2.Columns(3).Copy Destination:=Sheet1.Columns(3)

'如果要进行行的复制，将Columns变为Rows

'如果要多列复制，可以参考下面的代码
Sheet1.Columns("C:D").Insert , CopyOrigin:=xlFormatFromRightOrBelow
Sheet2.Columns("C:D").Copy Destination:=Sheet1.Columns("C:D")