【转帖】复制单元格后，如何使行高和列宽保持不变？
 

复制单元格后，如何使行高和列宽保持不变？
www.dimcax.com
复制单元格后，如何使行高和列宽保持不变？
复制单元格后，如何使行高和列宽保持不变？
请问 复制单元格后，如何使行高和列宽保持不变？
我是重新给对每一行设置了一遍，是否还有其他办法呢？或是有什么属性或方法能使它不用再重新设置呢？
dim i as integer

dim ran as range
set ran = xlsheet.range(xlsheet.cells(1, 1), xlsheet.cells(39,13）
ran.select
ran.copy
xlsheet.range(xlsheet.cells(40, 1), xlsheet.cells(40，1)).select
xlsheet.paste
''''以下重新设置行高
for i = 1 to 39
select case i
case 1, 39
xlsheet.rows(39+ i).rowheight = 30
case 2
xlsheet.rows(39 + i).rowheight = 20
case 3, 4
xlsheet.rows(39 + i).rowheight = 12
case else
xlsheet.rows(39 + i).rowheight = 10
end select
next i

使用选择性粘贴。pastespecial后面跟xlvalues只粘贴值，或者xlformulas只粘贴公式，这是对于单元格中包含公式的情况。
谢谢efan
好像用pastespecial也不行的，行高还是要变的