将单元格从一个工作簿复制到另一个工作簿的宏

本文介绍了将单元格从一个工作簿复制到另一个工作簿的宏的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我正在寻找一个将特定范围的单元格从一个工作簿复制到一个新工作簿的宏。宏将从Workbook1复制单元格 A1：HC5 ，并粘贴到相同的单元格（A1：HC5） Workbook2。
感谢任何指导！

I am looking for a macro that copies a specific range of cells from one workbook to a new workbook. The macro would copy cells A1:HC5 from "Workbook1", and paste into the same cells (A1:HC5) of "Workbook2".Thanks for any guidance!

推荐答案

这应该工作：

Sub test()
   Dim wbk As Workbook

   strFirstFile = "C:\source.xls"
   strSecondFile = "C:\destination.xls"

      Range("A1:HC35").Copy

   Set wbk = Workbooks.Open(strSecondFile)
   With wbk.Sheets("Sheet1")
      Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
   End With
End Sub

这篇关于将单元格从一个工作簿复制到另一个工作簿的宏的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！