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

'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")

猜你喜欢

转载自blog.csdn.net/jyh_jack/article/details/83822015