zhuxuhong 发表于 2004-11-1 12:52:00

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

复制单元格后，如何使行高和列宽保持不变？<BR>
<DIV>请问 复制单元格后，如何使行高和列宽保持不变？</DIV>
<DIV>我是重新给对每一行设置了一遍，是否还有其他办法呢？或是有什么属性或方法能使它不用再重新设置呢？</DIV>
<DIV></DIV>
<DIV>                Dim i As Integer<BR>                </DIV>
<DIV>                Dim ran As Range<BR>                Set ran = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(39,13）<BR>ran.Select<BR>                ran.Copy<BR>                xlSheet.Range(xlSheet.Cells(40, 1), xlSheet.Cells(40，1)).Select<BR>                xlSheet.Paste</DIV>
<DIV></DIV>
<DIV>                ''''以下重新设置行高<BR>                For i = 1 To 39<BR>                                Select Case i<BR>                                                Case 1, 39<BR>                                                                xlSheet.Rows(39+ i).RowHeight = 30<BR>                                                Case 2<BR>                                                                xlSheet.Rows(39 + i).RowHeight = 20<BR>                                                Case 3, 4<BR>                                                                xlSheet.Rows(39 + i).RowHeight = 12<BR>                                                Case Else<BR>                                                                xlSheet.Rows(39 + i).RowHeight = 10<BR>                                End Select<BR>                Next i<BR>                </DIV>

efan2000 发表于 2004-11-1 13:18:00

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

zhuxuhong 发表于 2004-11-1 13:33:00

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

zhuxuhong 发表于 2004-11-4 08:51:00

好像用pastespecial也不行的，行高还是要变的
页: [1]
查看完整版本: 复制单元格后，如何使行高和列宽保持不变？