excel - 如何粘贴来自不同工作簿的范围?
问题描述
我的代码:
With wbImport.Worksheets("Data")
LastCol = .Range("A1").End(xlToRight).Column
LastRow = .Range("A1").End(xlDown).Row
.Range("A1", .Cells(LastRow, LastCol)).Copy ' ‹-- Copy without Select
End With
wsData.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
我正在尝试将 wbImport 的数据粘贴到我当前的工作簿 wsData 中。
几乎每次我得到
错误 1004 Range 类的特殊粘贴方法失败。
解决方案
我会像下面这样:
Dim wsData As Worksheet
set wsData = ... ' <-- set your target sheet
With wbImport.Worksheets("Data")
With .Range("A1").CurrentRegion
wsData.Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End With
编辑:
如果您只对过滤后的行感兴趣,那么您必须返回Copy
和PasteSpecial
方法
wbImport.Worksheets("Data").Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
wsData.Range("A1").PasteSpecial xlPasteValues
推荐阅读
- firebase - 每个 Firebase 云函数都需要自己的时间来开始处理
- mysql - 在服务器上传输本地运行的站点
- jquery - 修改正则表达式以检查 sting 是否在 jquery validate 中不包含电子邮件地址
- drawing - 在两个矩形中绘制一个 AttributedString
- android - 如何使用 webview 将 post 参数传递给 url?
- python - 使用 python matplotlib 绘制交互式图像
- python - 复合语句的子查询中不允许使用 ORDER BY;联合查询集
- javascript - AWS Serverless 中的环境变量验证错误
- sql - SQL Server datediff 和小数舍入到偶数
- android - 使用 Hilt,如何注入没有上下文的类?