'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")
Excel-VBA:不同Sheet间的列、行复制
猜你喜欢
转载自blog.csdn.net/jyh_jack/article/details/83822015
今日推荐
周排行