Question

如何利用excel VB复制单元格内容？

我想通过excel VB将D:\1.xlsx里sheet1的A1:f10单元格的所有内容复制到当前表sheet2的c3:f12中，请问能够实现吗？

Answer 1

你可以利用宏，自己录制一个宏，然后复制粘贴单元格操作一遍，然后点停止保存，下次就可以用这个宏了。

追问

录制宏不能复制到我想指定的位置

追答

录完你可以在VB里面更改指定位置的

Answer 2

Sub yy()
FilePath = "D:\1.xlsx"
  Set XLSHEET = Workbooks.Open(FilePath)
  Set XLRA = XLSHEET.Sheets(1).Range("a1:f10")
  XLRA.Copy Sheet1.Range("C3")
  XLSHEET.Close
End Sub

Answer 3

Sub AA()
Dim sht As Worksheet, wb2 As Workbook, wb3 As Workbook
Application.DisplayAlerts = False
Set wb1 = Workbooks.Open(ThisWorkbook.Path & "\1")
With wb1
arr = Sheets(1).Range("A1:F10")
End With
[C3].Resize(10, 6) = arr
wb1.Close 1
Set wb1 = Nothing
Application.DisplayAlerts = True
End Sub
复制和被复制的都在同1个盘符