如何利用excel VB复制单元格内容？
我想通过excelVB将D:\1.xlsx里sheet1的A1:f10单元格的所有内容复制到当前表sheet2的c3:f12中，请问能够实现吗？...
我想通过excel VB将D:\1.xlsx里sheet1的A1:f10单元格的所有内容复制到当前表sheet2的c3:f12中，请问能够实现吗？
展开
3个回答
展开全部
你可以利用宏，自己录制一个宏，然后复制粘贴单元格操作一遍，然后点停止保存，下次就可以用这个宏了。
追问
录制宏不能复制到我想指定的位置
追答
录完你可以在VB里面更改指定位置的
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
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个盘符
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个盘符
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
