Excel VBA PasteSpecial 问题

于 2022-08-04 16:24:43 发布
阅读量1.3k 收藏
点赞数
文章标签： 前端 microsoft
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Hdidjjd/article/details/126161792
版权
在尝试使用VBA的SubPasteAndValue()宏粘贴内容时，遇到1004错误，该错误仅在粘贴文本时出现，不发生在粘贴单元格时。问题可能源于对PasteSpecial方法的使用不当，特别是当尝试将非数值文本粘贴为值时。解决方法可能包括检查目标区域是否正确，或者在粘贴前确保源数据的格式兼容。
摘要由CSDN通过智能技术生成

Sub PasteAndValue()

        Selection.PasteSpecial Paste:= xlPasteValues

End Sub

使用此方法进行粘贴时，出现了1004 range类 paste special  error.

当复制单元格进行粘贴时，此方法运行不会报错。

当复制文本进行粘贴时，此方法会报1004的错误。

Hdidjjd
关注
vba中粘贴功能（包括特殊粘贴）
pgymeitianjinbu的博客
02-17 1867
'表达式.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)'表达式 一个代表 Range 对象的变量。'将 Range 从剪贴板粘贴到指定的区域中。'Range.PasteSpecial 方法。将粘贴所有内容，并且将合并条件格式。XlPasteType(粘贴类型)Sub 选择怪粘贴跳过空单元()Sub 选择怪粘贴运算()Sub 选择性粘贴转置()粘贴除边框外的全部内容。使用源主题粘贴全部内容。Sub 选择怪粘贴()粘贴公式和数字格式。
vb net excel 剪贴板 粘贴_VBA-选择性粘贴PasteSpecial
weixin_39979080的博客
11-21 2563
Range对象.PasteSpecial(Paste,Operation,SkipBlanks,Transpose)参数均为可选。若没有指定参数，则直接复制。Paste xlPasteType常量，指定复制的具体内容。默认为全部复制。全部 xlPasteAll公式 xlPasteFormulas数值 xlPasteValues格式 xlPasteFormats批注 xlPasteComments验...
关于ExcelPasteSpecial
在白天行尸走肉虚渡这不会再来的年华，天黑却开始感情丰富无病呻吟喜怒无常
02-14 2223
利用Xml产生数据，并考入Excel，发现只拷贝值不拷贝当前单元格格式，在网上查阅有个人提出拷贝2次的方法，果然能实现    //复制XMl 内容  Worksheet_xml.Range("A1:E" + CType(stdChart.standardRange.DsStdCorrectiveAction.Tables(0).Rows.Count, String).ToString())
Excel_VBA编程学习
weixin_62257146的博客
05-11 1117
本文适合有编程基础的同学学习excel中的VBA编程，无编程基础的同学阅读此文会有点吃力哟！
excel粘贴时出现故障,在Excel 2013中使用VBA复制和粘贴时出现问题
weixin_39819138的博客
02-15 528
I'm attempting to process a large number of large files and need to copy/paste formulas from one range of cells to another. The code I'm using is this:Range("I12:P12").SelectSelection.CopyFor i = 13 T...
Blue Prism使用Excel的Paste Special方法无效是什么错误？
qq_41841928的博客
10-27 412
使用MS Excel VBO中的Action“Paste”事需要注意，在“MS Excel VBO::Copy”和“MS Excel VBO::Select”之前均需要先调用“MS Excel VBO::Select”。 如下图所示： 如果需要咨询其他的Blue Prism问题还可以加入我们的微信群 ...
EXCELVBA方法属性大全_ExcelVBA_EXCELVBA方法属性大全_VBa_
10-04
3. **方法**：比如，`Worksheets.Copy`复制工作表，`Range.PasteSpecial`进行特殊粘贴，`Workbook.SaveAs`保存为新文件。方法通常用于改变对象的状态或执行特定操作。 4. **事件**：VBA中的事件允许你对用户操作或...
vba.rar_Excel VBA_VBA 写入excel_excel_vba excel
09-19
4. **复制和粘贴**：VBA中的`Range.Copy`和`Range.PasteSpecial`方法可以用来复制和粘贴数据。如果需要复制一列，可以使用`Columns("A:A").Copy`。 5. **创建新工作簿**：使用`Workbooks.Add`方法可以创建新的Excel...
excel-vba.rar_ vba .xls_Excel VBA_Excel VBA .xls_VBa_excel
最新发布
09-21
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub ``` 此宏首先复制选定的区域，然后在下面插入一行，最后将内容值粘贴到新行。 随着技能的...
汇总表格_excelvba汇总表格_
10-02
可以创建一个新的`Worksheet`对象，并使用`Range.Copy`和`Range.PasteSpecial`方法将数据粘贴到目标位置。 7. **错误处理**：在编程过程中，应包含错误处理代码，以应对可能出现的问题，如文件不存在、文件已被其他...
Desktop_ExcelVBA_
09-28
标题“Desktop_ExcelVBA_”暗示了这个压缩包中的内容与使用Excel的VBA（Visual Basic for Applications）编程有关，特别关注于在桌面环境中如何通过VBA来提高多表格数据处理的效率。VBA是一种内置于Microsoft Office...
PasteSpecial Paste:粘贴参数
SmileMoon's Home
02-21 1万+
通过VBA来完成粘贴操作，在Excel中，我们可以和平常使用鼠标的操作一样，可以选择只粘贴数值还是连格式一起粘贴。 　　下面，就给大家介绍PasteSpecial Paste对象的各种参数，并给出相应的例子供大家参考。 　　当然，我们得通过Range对象的PasteSpecial方法来完成。 　　参数「Operation」的值的列表如下（默认值是xlPasteSpecialOperation...
VBA：自动化跨工作簿复制粘贴及排序
热门推荐
qingsi11的博客
02-07 1万+
从一个工作簿各个子表中复制数据粘贴到另一个工作簿指定位置中，并对指定列进行排序，这个是我们在日常工作中经常做的，如何减少繁琐的工作步骤，提高效率，一键完成上面的工作。下面介绍通过VBA，如何自动化跨工作簿复制粘贴及排序。 图一 图二 将图一工作簿中三个子表含有公式的数据，复制粘贴数值到图二的表1，并进行排序，可以直接点击图二中执行的控件即可完成；以下是VBA脚本的实现。 Sub scopy2() ' ' 复制粘贴及排序 ' #复制粘贴 Application.ScreenUp...
Excel - VBA -复制单元格值粘贴
Mr_Huang1501的博客
05-25 2247
Excel应用扩展，利用VBA进行一键跨工作表复制单元格值粘贴，
发现无量寿(数字币&内容同一法乘)智能应用《第二版》5.真如实器工具究竟长什么样的呢？
weixin_49094689的博客
12-03 343
发现无量寿(数字币&内容同一法乘)智能应用 <第二版>5真如实器工具究竟长什么样的呢 作者：陈燕玲 真如实器工具究竟长什么样的呢？ warning： 真如实器工具和真如实有为学、无为学，最最最重要的是正确的，有序、高等级链接（联系）。在佛经里我知道就有几部是用来阐述说明什么是正确链接，如何链接，至于我不知道还有几部我就不知道了。 《周易》四部中的系辞部专门沟通论证正确链接的。且《周易》还
细说自动筛选和高级筛选通过VBA快速文本筛选
wang880117的博客
03-25 5329
细说自动筛选和高级筛选通过VBA快速文本筛选
Excel VBA：高效工作薄与数据操作技巧
如果找到合适的行（x），则使用`PasteSpecial`方法粘贴值，而不是格式。 ```vb Sub aa() Dim x As Long If Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a1").Value...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值