[英]VBA - Export Image from Excel *without* using Clipboard (Copy/Paste)
[英]Copy and paste multiple ranges without using the clipboard using VBA
我成功使用以下代码从单个范围复制了值:
Dim wb As Workbook, strFile As String, rSrc As Range, rDst As Range, r1 As Range, r2 As Range, r3 As Range, r As Range
Set wb = ActiveWorkbook
'pasting Summary values
Set wkbTemp = Workbooks.Open(ThisWorkbook.Path & "\data\Summary.csv")
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
Set rSrc = wkbTemp.Sheets(1).Range("b2:G" & LastRow)
wb.Activate
Set rDst = wb.Sheets("Summary").Cells(6, 4).Resize(rSrc.Rows.Count, rSrc.Columns.Count)
rDst = rSrc.Value
我还尝试从同一张纸复制多个范围,但是当我使用以下代码设置源范围时,它会崩溃:
'PY to Comparison
With wkbTemp.Sheets(1)
Set r1 = .Range("B2:B" & LastRow)
Set r2 = .Range("d2:d" & LastRow)
Set r3 = .Range("f2:g" & LastRow)
Set r = Union(r1, r2, r3)
Set rSrc = .Range(r)
End With
wb.Activate
Set rDst = wb.Sheets("Comparison").Cells(9, 6).Resize(rSrc.Rows.Count, rSrc.Columns.Count)
rDst = rSrc.Value
上面的复制多个范围的方法是从以下链接中获得的: 使用VBA复制多个范围
我也尝试使用预定义的行长度来复制范围(但是我真正需要的是动态长度),但是我的代码仅复制了第一个范围:
Set rSrc = wkbTemp.Sheets(1).Range("B2:B6,d2:d6,f2,g6")
wb.Activate
Set rDst = wb.Sheets("Comparison").Cells(9, 6).Resize(rSrc.Rows.Count, rSrc.Columns.Count)
rDst = rSrc.Value
我究竟做错了什么?
这样的事情应该起作用:
'...
With wkbTemp.Sheets(1)
Set r1 = .Range("B2:B" & LastRow)
Set r2 = .Range("d2:d" & LastRow)
Set r3 = .Range("f2:g" & LastRow)
Set r = Union(r1, r2, r3)
End With
CopyRangeValue r, wb.Sheets("Comparison").Cells(9, 6)
'....
CopyRangeValue
Sub看起来像这样:
'copy a range (can be multi-area) value to a different range
Sub CopyRangeValue(rngCopy As Range, rngDest As Range)
Dim a As Range
For Each a In rngCopy.Areas
rngDest.Resize(a.Rows.Count, a.Columns.Count).Value = a.Value
Set rngDest = rngDest.Offset(0, a.Columns.Count)
Next a
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.