如何将动态区域复制到另一个工作簿？
如何将动态区域复制到另一个工作簿？
提问于 2018-05-31 23:58:02
我需要使用VBA将'Workbook1'，sheet1中的行复制到'Workbook2'，sheet1中。
- 信息从第10行开始，最后一行发生变化。最后一行没有值（空白行）。例如：该区域可以是第10行：第19行或第10行：第72行，但在第19或72行之后，只有空白单元格。最后一列是CF.
- 我需要将该区域复制到sheet1中的另一个工作簿。复制的区域需要粘贴到sheet1的单元格A2中。
Public Sub CopyDynamicRange（）Dim DestWorkbook As Workbook，SourceWorkbook As Workbook，SourceWorkbook2 As Workbook Dim DestSheet As Worksheet，Dim DestSheet2 As Worksheet，SourceSheet As Worksheet，SourceSheet2 As WorksheetSet SourceWorkbook = Workbooks.Open(Filename:="C:\Users\z000xxx\Desktop\Makrot\SourceWb1.xlsm")
Set SourceWorkbook2 = Workbooks.Open(Filename:="C:\Users\z000xxx\Desktop\Makrot\SourceWb2.xlsm")
Set DestWorkbook = Workbooks.Open(Filename:="C:\Users\z000xxx\Desktop\Makrot\Testi.xlsm")
Set SourceSheet = SourceWorkbook.Sheets("Position View")
Set SourceSheet2 = SourceWorkbook2.Sheets("SAPBW_DOWNLOAD")
Set DestSheet = DestWorkbook.Sheets("Sheet1")
Set DestSheet2 = DestWorkbook.Sheets("Sheet1")
With SourceSheet
.Range(.Cells(10, "A"), .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "CF")).Copy Destination:=DestSheet.Cells(1, 1)
With SourceSheet2
.Range("A1:J44").Copy Destination:=DestSheet2.Cells(1, 1)
End With
End Sub回答 1
Stack Overflow用户
发布于 2018-06-01 09:38:34
代码：
Public Sub CopyDynamicRange()
Dim DestWorkbook As Workbook, SourceWorkbook As Workbook
Dim DestSheet As Worksheet, SourceSheet As Worksheet
Set SourceWorkbook = Workbooks.Open(Filename:="C:\Users\z000xxx\Desktop\Makrot\Filename.xlsm")
Set DestWorkbook = Workbooks.Open(Filename:="C:\Users\z000xxx\Desktop\Makrot\Filename.xlsm")
Set SourceSheet = SourceWorkbook.Sheets("Sheet1")
Set DestSheet = DestWorkbook.Sheets("Sheet1")
With SourceSheet
.Range(.Cells(10, "A"), .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "CF")).Copy Destination:=DestSheet.Cells(1, 1)
End With
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/-100004677
复制相关文章
相似问题