admin 管理员组文章数量: 1086019
2024年3月27日发(作者：创建表单的基本步骤)
Excel VBA教程：PasteSpecial方法
应用于 Range对象的 PasteSpecial方法。
将剪贴板中的 Range对象粘贴到指定区域中。
pecial(Paste, Operation, SkipBlanks, Transpose)
expression 必需。该表达式返回一个 Range对象。
Paste XlPasteType 类型，可选。指定要粘贴的区域部分。
XlPasteType 可为以下 XlPasteType 常量之一。
xlPasteAll 默认值
xlPasteAllExceptBorders
xlPasteColumnWidths
xlPasteComments
xlPasteFormats
xlPasteFormulas
xlPasteFormulasAndNumberFormats
xlPasteValidation
xlPasteValues
xlPasteValuesAndNumberFormats
Operation XlPasteSpecialOperation 类型，可选。指定粘贴操作。
XlPasteSpecialOperation 可为以下 XlPasteSpecialOperation 常量之一。
xlPasteSpecialOperationAdd
xlPasteSpecialOperationDivide
xlPasteSpecialOperationMultiply
xlPasteSpecialOperationNone 默认值
xlPasteSpecialOperationSubtract
SkipBlanks Variant 类型，可选。若为 True，则不将剪贴板上区域中的空白单元格粘贴到目标区
域中。默认值为 False。
Transpose Variant 类型，可选。若为 True，则粘贴区域时转置行和列。默认值为 False。
应用于 Worksheet对象的 PasteSpecial方法。
以指定格式将剪贴板中的内容粘贴到工作表上。可用本方法从其他应用程序中粘贴数据，或以特定格
式粘贴数据。
pecial(Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel,
NoHTMLFormatting)
expression 必需。该表达式返回一个 Worksheet对象。
Format Variant 类型，可选。指定数据的剪贴板格式的字符串。
Link Variant 类型，可选。若为 True，则建立与被粘贴数据的源之间的链接。如果源数据不适于
链接，或源应用程序不支持链接，将忽略本参数。默认值为 False。
DisplayAsIcon Variant 类型，可选。若为 True，则将粘贴内容显示为图标。默认值为 False。
IconFileName Variant 类型，可选。如果 DisplayAsIcon 为 True，则指定包含所用图标的文件
名。
IconIndex Variant 类型，可选。图标文件内的图标索引号。
IconLabel Variant 类型，可选。图标的文本标签。
NoHTMLFormatting Variant 类型，可选。若为 True，则从 HTML 中删除所有的格式设置、
超链接和图像。若为 False ，则完整粘贴 HTML。默认值为 False。
说明
注意 当 Format = “HTML”时，NoHTMLFormatting 才起作用。在所有其他情况下，
NoHTMLFormatting 将被忽略。
必须在使用本方法之前选定目标区域。
本方法可能会更改工作表的选定区域，这取决于剪贴板中的内容。
Excel VBA教程：PasteSpecial方法·示例
应用于 Range对象。
本示例用 Sheet1 上单元格区域 C1:C5 和单元格区域 D1:D5 原有内容的和来取代单元格区域
D1:D5 中的数据。
With Worksheets("Sheet1")
.Range("C1:C5").Copy
.Range("D1:D5").PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
End With
应用于 Worksheet对象。
本示例将剪贴板中的 Microsoft Word 文档对象粘贴到 Sheet1 上的单元格 D1 中。
Worksheets("Sheet1").Range("D1").Select
pecial format:= _
"Microsoft Word 8.0 Document Object"
本示例粘贴相同的 Microsoft Word 文档对象，并将其显示为图标。
Worksheets("Sheet1").Range("F5").Select
pecial _
Format:="Microsoft Word 8.0 Document Object", _
DisplayAsIcon:=True
如何用VBA代码实现只粘贴格式不粘贴值
Sub 只复制格式()
Range("D9").Copy
Range("D12").PasteSpecial Paste:=xlPasteFormats
yMode = False
End Sub
如何用VBA复制行并保持行宽
Sub 复制行并保持行宽()
Sheets("sheet1").Rows(1).Copy
Sheets("sheet2").Cells(1, 1).PasteSpecial Paste:=xlPasteColumnWidths
Sheets("sheet1").Rows(1).Copy Sheets("sheet2").Cells(1, 1)
End Sub
版权声明：本文标题：VBA粘贴格式控制 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1711542056a599106.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论