Sub CopyRange()
ThisWorkbook.Sheets("Sheet1").Range("A1:C7").Copy Destination:=ThisWorkbook.Sheets("Sheet2").Range("B1")
ThisWorkbook.Sheets("Sheet2").Select
End Sub【VBA】复制Range
最新推荐文章于 2025-05-06 18:41:19 发布
Sub CopyRange()
ThisWorkbook.Sheets("Sheet1").Range("A1:C7").Copy Destination:=ThisWorkbook.Sheets("Sheet2").Range("B1")
ThisWorkbook.Sheets("Sheet2").Select
End Sub
被折叠的 条评论
为什么被折叠?