按照基本操作里面的方法,如果粘贴后要保持原来的行高和列宽,应该是整行复制粘贴以保持行高,然后再来一次选择性粘贴 ,选择列宽以保持原有列宽。在vba里面应该也是这么个思路,整行复制粘贴,.entirerow.copy ,完了再来一次pastespecial paste:=xlpastecolumnwidths