精华内容
下载资源
问答
  • Range对象.PasteSpecial(Paste,Operation,SkipBlanks,Transpose)参数均为可选。若没有指定参数,则直接复制。Paste xlPasteType常量,指定复制的具体内容。默认为全部复制。全部 xlPasteAll公式 xlPasteFormulas数值...

    Range对象.PasteSpecial(Paste,Operation,SkipBlanks,Transpose)

    参数均为可选。若没有指定参数,则直接复制。

    5bec587c231113af9e7f4dade07f3458.png

    Paste xlPasteType常量,指定复制的具体内容。默认为全部复制。

    1. 全部 xlPasteAll
    2. 公式 xlPasteFormulas
    3. 数值 xlPasteValues
    4. 格式 xlPasteFormats
    5. 批注 xlPasteComments
    6. 验证 xlPasteValidation
    7. 所有使用源主题的单元 xlPasteAllUsingSourceTheme
    8. 边框除外 xlPasteAllExceptBorders
    9. 列宽 xlPasteColumnWidths
    10. 公式和数字格式 xlPasteFormulasAndNumberFormats
    11. 值和数字格式 xlPasteValuesAndNumberFormats
    12. 所有合并条件格式 xlPasteAllMergingConditionalFormats

    Operation xlPasteSpecialOperation常量,指明粘贴时要进行的运算操作,即将复制的单元格中的数据与指定单元格区域中的值进行加减乘除运算。

    1. 无 xlPasteSpecialOperationNone
    2. 加 xlPasteSpecialOperationAdd
    3. 减 xlPasteSpecialOperationSubtract
    4. 乘 xlPasteSpecialOperationMultiply
    5. 除 xlPasteSpecialOperationDivide

    SkipBlanks 跳过空单元格

    Transpose 转置


    只粘贴格式而不粘贴值

    Sub testPasteSpecial1()
    
        Range('C2:C4').Copy
    
        Range('E2').PasteSpecialPaste:=xlPasteFormats
    
    End Sub

    只粘贴值

    Sub testPasteSpecial2()
    
        Range('C2:C4').Copy
    
        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()
    
        Range('A1:A3').Copy
    
        Range('C1').PasteSpecialPaste:=xlPasteColumnWidths
    
        Range('A1:A3').CopyRange('C1')
    
    End Sub

    对粘贴的区域进行运算

    Sub testPasteSpecial5()
    
        Range('C1').Copy
    
        Range('A1:A3').PasteSpecialOperation:=xlPasteSpecialOperationMultiply
    
    End Sub

    将行列转置

    Sub testPasteSpecial6()
    
        Range('A1:A3').Copy
    
        Range('C1').PasteSpecialTranspose:=True
    
    End Sub

    使用PasteSpecial方法时剪贴板中没有数据

    说明:使用PasteSpecial方法时会出错。例如,执行下面的代码:

    Sub testPasteSpecial7()
    
        Selection.PasteSpecialPaste:=xlPasteColumnWidths, Operation:=xlNone, _
    
            SkipBlanks:=False, Transpose:=False
    
        Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
            :=False, Transpose:=False
    
    End Sub

    VBA会提示:类Range的PasteSpecial方法无效

    原因:因为剪贴板中没有可供粘贴的数据。特别是,当你在工作表中复制单元格区域后,在功能区中选择“开发工具”——“宏”或者按Alt F8调出宏对话框时,Excel会清除剪贴板。(事实上,在单元格中使用复制命令后,访问Excel中的任何对话框,剪贴板中的数据都会被清除)因此,再执行上述代码的话,肯定会出错了

    解决方法:为了避免出现上述情况,可以将上面的宏过程赋给一个按钮,直接单击按钮执行;或者在VBE中按F5键执行。

    展开全文
  • PasteSpecial Paste:粘贴参数

    千次阅读 2020-02-21 23:34:43
     下面,就给大家介绍PasteSpecial Paste对象的各种参数,并给出相应的例子供大家参考。  当然,我们得通过Range对象的PasteSpecial方法来完成。  参数「Operation」的值的列表如下(默认值是...

    通过VBA来完成粘贴操作,在Excel中,我们可以和平常使用鼠标的操作一样,可以选择只粘贴数值还是连格式一起粘贴。

      下面,就给大家介绍PasteSpecial Paste对象的各种参数,并给出相应的例子供大家参考。

      当然,我们得通过Range对象的PasteSpecial方法来完成。

      参数「Operation」的值的列表如下(默认值是xlPasteSpecialOperationNone)

      常量             粘贴内容 
      xlPasteSpecialOperationNone    无操作 
      xlPasteSpecialOperationAdd     加 
      xlPasteSpecialOperationSubtract    減 
      xlPasteSpecialOperationMultiply    乗 
      xlPasteSpecialOperationDivide     除 
     

      参数「Paste」的值的列表如下(一般默认的是xlPasteAll)

      常量              粘贴内容 
      xlPasteAll             所有 
      xlPasteFormulas          计算式 
      xlPasteValues            值 
      xlPasteFormats           格式 
      xlPasteComments          注释 
      xlPasteValidation          入力规则 
      xlPasteAllExceptBorders       边框以外 
      xlPasteColumnWidths         列宽 
      xlPasteFormulasAndNumberFormats   计算式和值 
      xlPasteValuesAndNumberFormats    值和格式

      例子如下:

      Range("Z1").Copy

      Range("C13").PasteSpecial Paste:=xlPasteAll,Operation:=xlPasteSpecialOperationNone

      如上代码功能是:对Z1进行复制,将其粘贴到C13单元格中,粘贴的时候连内容及格式全部都粘贴,粘贴的时候无任何的加减乘除算术运算的操作

    展开全文
  • <div><p>Visual Studio has: <p>Paste JSON as classes Paste XML as classes <p>Might be worth also having: <p>Paste INI as classes</p><p>该提问来源于开源项目:rubberduck-vba/Rubberduck</p></div>
  • vba 笔记

    2019-10-02 19:59:36
    1.PlanWS5.Range("D5:E13").Copy 复制PlanWS5.Range("G5:H13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 选择性黏贴Application.CutCopyMode = False清空剪贴板...

    1.

    PlanWS5.Range("D5:E13").Copy   复制

    PlanWS5.Range("G5:H13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False   选择性黏贴

    Application.CutCopyMode = False

    清空剪贴板

    在复制或者剪切了大量内容后关闭文件,如果不写上这句代码,1、会出现提示窗口:是否保存手复制的内容到剪贴板,以便下次使用。这时文件不能自动关闭,必须手动关闭提示框才关闭文件。

    2.

    Set PlanWB5 = Excel.Workbooks.Open(FilePN5)  //打开一个excel
    Set PlanWS5 = PlanWB5.Worksheets(SheetName)//选择一个sheet也
    PlanWS5.Activate//激活
        
     PlanWS5.Range("G3:H17").Interior.ColorIndex = 0// 单元格内部颜色设置

     

    3.

    ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh

    刷新数据透视表

     

    转载于:https://www.cnblogs.com/c-x-a/p/6077682.html

    展开全文
  • ' Copywb.Sheets(wsSource.Name).Range("A1:W79").Copy' Paste SpecialwbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlValueswbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlFormatsThis co...

    bd96500e110b49cbb3cd949968f18be7.png

    ' Copy

    wb.Sheets(wsSource.Name).Range("A1:W79").Copy

    ' Paste Special

    wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlValues

    wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlFormats

    This code allows me to copy everything in a range of A1:W79. How can I modify this Range so that it selects everything that contains value in a worksheet. For example, worksheet might contain values from C7:G20 etc.

    解决方案

    I'd go like follows:

    With wb.Sheets(wsSource.Name).UsedRange

    .Copy

    With wbTarget.Sheets("Sheet1").Range(.Address)

    .PasteSpecial xlValues

    .PasteSpecial xlFormats

    End With

    End With

    展开全文
  • VBA代码学习

    2017-06-20 12:44:05
    RansorA.Copy '将RansorA中的内容复制到剪贴板 RansorB.PasteSpecial Paste := xlPasteValues '将剪贴板中的内容复制到RansorB
  • EXCEL按值和源格式粘贴的时候 包含了按值和数字格式 + 外观样式(主题) vba代码实际如下, 是分两步走的 Range(“H5”).Select Selection.Copy Range(“K5”).Select ...Selection.PasteSpecial Paste...
  • 下面是编程之家 jb51.cc 通过网络收集整理的代码片段...Sheet1.Range("A2:B9").SelectApplication.CutCopyMode = FalseSelection.CopySheet2.SelectRange("B3").SelectSelection.PasteSpecial Paste:=xlPasteValues...
  • vba代码进行复制粘贴...[f1].PasteSpecial Paste:=12 'Application.CutCopyMode=1 'xlPasteValuesAndNumberFormats (按值与数字格式) '虚线框还在 ActiveSheet.Paste 'Application.CutCopyMode=1 直接的复制粘贴 ...
  • Sub VBA小程序_遍历所有工作表_复制粘贴为数值() Dim sht As Worksheet For Each sht In ... sht.Cells.PasteSpecial Paste:=xlPasteValues Cells(1, 1).Select Next Application.CutCopyMode = False En.
  • VBA运行时错误1004错误

    千次阅读 2009-11-27 12:20:30
    今天帮人做一个VBA宏, 很久没干这活了. Workbooks(dirname).Sheets(i).UsedRange.Copy Sheets(i).Range("A"... Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormat...
  • VBA常见对象的操作

    千次阅读 2018-08-27 16:42:12
    拷贝到指定地方 Sheets(1).Range.copy destination:=Sheets(2).range 拷贝指定range的几种写法  ...).PasteSpecial Paste:=xlPasteValues '显示参数名方式(标准、易懂) Range("G7").Pa...
  • VBA控制Excel行列转换

    2012-05-05 21:02:48
    Sub Macro2() ' ' Macro2 Macro ' ' Range("D8:F15").Select Selection.Copy Range("D20").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlan...
  • Excel VBA Range单元格操作实例

    千次阅读 2020-02-16 21:51:53
    四、Range操作 4.2取得最后一个非空单元格 xlDown/xlToRight/xlToLeft/xlUp Dim ERow as Long ...注意:使用PasteSpecial方法时指定xlPasteAll(粘贴全部),并不包括粘贴列宽 Sub CopyWithSameCol...
  • 请问有办法将下列操作一步完成么 Excel提示行列转置粘贴无法适用于不连续范围. ...Range("A15").Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub
  • 单元格对象的选择性粘贴(PasteSpecial)方法 参数Paste表示选择性粘贴的内容,可以为下表中的任何一个。 参数Operation为粘贴的附加操作,可以为下表中的任何一个。 参数SkipBlanks表示是否跳过空白单元格,若为...
  • vba调用Excel进行批量复制粘贴的时候 一般有两种方式进行处理 方式一: 正常速度还好, 不过这种方式容易突然复制到一半变卡, 要卡一阵子才会恢复. ...这个时候, 在每次pastespecial之后我们要加一个do...
  • 快速回答:使用 Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial SkipBlanks = False来自MSDN的参考:SkipBlanks True表示剪贴板范围内的空白单元格不会粘贴到目标范围内 ....
  • Range("A6").SelectSelection.CopyRange("A10:A60").SelectRange(Selection, Selection.End(xlDown)).SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _ :=False, Transpose:=...
  • 《Excel VBA 语法字典》附书源码

    热门讨论 2010-10-09 06:05:02
    4-121 PasteSpecial 4-122 Patterned 4-123 PickUp 4-124 PresetDroD 4-125 PresetGradient 4-126 PresetTextured 4-127 PrintOut 4-128 PrintPreview 4-129 Protect 4-130 Quit 4-131 RemoveSubtotal 4-...
  • 04190复制单元格的值(PasteSpecial方法) 04191复制单元格的值(Value属性) 04192复制单元格的数据和公式(去掉前缀字符) 04193复制单元格的数据和公式(保留前缀字符) 04194复制单元格的格式 04195复制单元格的...
  •  Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _  SkipBlanks:=False, Transpose:=False  ActiveSheet.Paste      Next  ...
  • 1, grid2.Column).Address).PasteSpecial Paste:=xlPasteValues '将复制的数据从目标表对应表头列下的起始空单元格处开始粘贴 End If Next Next target.Close (True) '将目标表格保存并关闭 ...
  • 我从前用Excel VBA 2003做了一个工作上用的计算器. 用来计算Step IV & Time to Trip... 正常情况下, 贴进来的数据, Paste special > 文本或value是没有问题的 从Excel贴进来的数据也没有问题, 其中一个Key形状的butto
  • au3反编译源码

    2014-01-22 22:24:59
    you may also get an offline MD5 Cracker and paste the hash there like DECRYPT.V2 Brute-Force MD5 Cracker http://www.freewarecorner.de/download.php?id=7298 ...

空空如也

空空如也

1 2
收藏数 25
精华内容 10
关键字:

pastespecialvba