With Sheets("10").Range("D1") '指定目标区域的左上角单元格 .PasteSpecial xlPasteColumnWidths '仅粘贴列宽 .PasteSpecial xlPasteAll '粘贴所有内容 End With Application.CutCopyMode = False '释放剪贴板并退出复制模式 End Sub PasteSpecial方法支持选择性
xlPasteAll粘贴全部内容。xlPasteAllExceptBorders粘贴除边框外的全部内容。xlPasteAllMergingConditionalFormats将粘贴所有内容，并且将合并条件格式。xlPasteAllUsingSourceTheme使用源主题粘贴全部内容。xlPasteColumnWidths粘贴复制的列宽。xlPasteComments粘贴批注。xlPasteFormats粘贴复制的源格式。xlPasteFormulas粘贴...
粘贴时为了保证行高和列宽一同被复制,可以先整行使用Copy方法进行复制粘贴,这样就可以保证行高一同被复制;使用PasteSpecial方法选择性粘贴,参数Paste设置为xlPasteColumnWidths即可保证列宽一同被复制,参数Paste设置为xlPasteFormats则只粘贴格式而不粘贴数据。 为了能一次性复制多份,粘贴区域的选择很重要,粘贴区域的行数=样本...
Range("C1").PasteSpecialPaste:=xlPasteColumnWidths Range("C1").PasteSpecialPaste:=xlPasteValues End Sub 运行代码后的效果如图: 也可以将PasteSpecial方法与Copy方法结合: Sub testPasteSpecial4() Range("A1:A3").Copy Range("C1").PasteSpecial...
xlPasteColumnWidths 粘贴复制的列宽。 xlPasteComments 粘贴批注。 xlPasteFormats 粘贴复制的源格式。 xlPasteFormulas 粘贴公式。 xlPasteFormulasAndNumberFormats 粘贴公式和数字格式。 xlPasteValidation 粘贴有效性。 xlPasteValues 粘贴值。 xlPasteValuesAndNumberFormats 粘贴值和数字格式。
参数均为可选。若没有指定参数，则直接复制。参数Paste可以指定一个xlPasteType常量，指定复制的具体内容。默认为全部复制。其具体常量参见下图。此外，还有一个xlPasteAllMergingConditionalFormats常量，粘贴全部内容且合并条件格式（注：本文使用的是Excel 2007版本）。参数Operation可以指定一个xlPasteSpecialOperation常量，...
...(或13),结果是(i)粘贴所有内容,和(ii)使用源主题;xlPasteAllExceptBorders(或7),粘贴除边框外所有内容;xlPasteColumnWidths(或8),粘贴列宽;xlPasteFormulasAndNumberFormats...如果Transpose设置为True,粘贴时行列转置;如果设置为False,Excel不会转置任何内容。该参数默认值为False。如果忽略该参数,Excel不会...
Range('F2').PasteSpecialPaste:=xlPasteValues End Sub 粘贴值并保持列宽 Sub testPasteSpecial3() Range('A1:A3').Copy Range('C1').PasteSpecialPaste:=xlPasteColumnWidths Range('C1').PasteSpecialPaste:=xlPasteValues End Sub or Sub testPasteSpecial4() ...
xlPasteAllMergingConditionalFormats 14 将粘贴所有内容，并且将合并条件格式。xlPasteAllUsingSourceTheme 13 使用源主题粘贴全部内容。xlPasteColumnWidths 8 粘贴复制的列宽。xlPasteComments -4144 粘贴批注。xlPasteFormats -4122 粘贴复制的源格式。xlPasteFormulas -4123 粘贴公式。xlPasteFormulasAnd...
按照基本操作里面的方法，如果粘贴后要保持原来的行高和列宽，应该是整行复制粘贴以保持行高，然后再来一次选择性粘贴 ，选择列宽以保持原有列宽。在vba里面应该也是这么个思路，整行复制粘贴，.entirerow.copy ,完了再来一次pastespecial paste:=xlpastecolumnwidths ...