把Sheets(filename1)有資料的A到D列貼到Sheets("YCB3 Costcenter")的A到D列下面,用VBA如何寫?
时间: 2024-04-13 13:30:12 浏览: 105
您可以使用以下的VBA代码来实现将 Sheets(filename1) 中的 A 列到 D 列的数据粘贴到 Sheets("YCB3 Costcenter") 的 A 列到 D 列下面:
```vba
Sub CopyData()
Dim sourceSheet As Worksheet
Dim destinationSheet As Worksheet
Dim lastRowSource As Long
Dim lastRowDestination As Long
' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Sheets("filename1")
Set destinationSheet = ThisWorkbook.Sheets("YCB3 Costcenter")
' 获取源工作表和目标工作表的最后一行
lastRowSource = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
lastRowDestination = destinationSheet.Cells(destinationSheet.Rows.Count, "A").End(xlUp).Row
' 将源工作表的 A 列到 D 列的数据复制到目标工作表的下一行
sourceSheet.Range("A1:D" & lastRowSource).Copy _
destinationSheet.Range("A" & lastRowDestination + 1)
' 清除剪贴板
Application.CutCopyMode = False
' 提示复制完成
MsgBox "数据已成功复制到 YCB3 Costcenter 工作表中。"
End Sub
```
您可以将以上代码复制粘贴到 VBA 编辑器中(按下 `Alt + F11` 打开 VBA 编辑器),然后运行 `CopyData` 这个宏,即可实现将数据粘贴到目标工作表的功能。请记得将代码中的 `"filename1"` 和 `"YCB3 Costcenter"` 替换为实际的工作表名称。
希望可以帮到您!如果有任何疑问,请随时提问。
阅读全文