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

zhuxuhong

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

请问 复制单元格后，如何使行高和列宽保持不变？

我是重新给对每一行设置了一遍，是否还有其他办法呢？或是有什么属性或方法能使它不用再重新设置呢？

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

efan2000

使用选择性粘贴。PasteSpecial后面跟xlValues只粘贴值，或者xlFormulas只粘贴公式，这是对于单元格中包含公式的情况。

zhuxuhong

谢谢efan2000的回复。我是不知道多少页这种表格，所以程序运行时把上面的表格往下复制。是否还有其他方式能实现这种功能呢？

zhuxuhong

好像用pastespecial也不行的，行高还是要变的