You can Try:
Dim wb1 as workbook, wb2 as workbook
Set wb1 = workbooks("Workbook1")
Set wb2 = workbooks("Workbook2")
wb1.range("Cell to be copied").copy wb2.range("Cell where you want the data")
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.