本期主要讲讲单元格复制粘贴等操作。
一、复制粘贴固定区域的单元格
因为以下内容都是复制单个或者固定区域的单元格内容,就不多说了,备注上面都有说明。
Option Explicit
Sub CopyRange()
'复制单元格内容示例1
'注意:单元格的格式、公式、批注等也会被复制过去哟
Sheets(1).Range("A1").Copy Sheets(1).Range("B1")
End Sub
Sub CopyRange2()
'复制单元格内容示例2,打开了下面2个工作表后,就可以通过工作表的名称进行复制啦
Workbooks("测试表1.xlsx").Sheets(1).Range("A1").Copy _
Workbooks("测试表2.xlsx").Sheets(1).Range("A1")
End Sub
Sub CopyRange3()
'复制单元格内容示例3,和上面几乎一样
Dim rng1 As Range, rng2 As Range
Set rng1 = Workbooks("测试表1.xlsx").Sheets(1).Range("A1")
Set rng2 = Workbooks("测试表2.xlsx").Sheets(1).Range("A1")
rng1.Copy rng2
End Sub
Sub Copy