博客

本期主要讲讲单元格复制粘贴等操作。

一、复制粘贴固定区域的单元格

因为以下内容都是复制单个或者固定区域的单元格内容，就不多说了，备注上面都有说明。

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 CopyRange4()
    '复制单元格内容示例4，复制区域，选择一个单元格进行粘贴
    Sheets(1).Range("A1:D5").Copy Sheets(2).Range("A1")
End Sub

Sub MoveRange1()
    '移动（剪切）单元格内容示例1。
    '注意：单元格的格式、公式、批注等也会被剪切过去哟
    '就是把Copy换成了Cut，其他几乎一样
    Sheets(1).Range("A1").Cut Sheets(1).Range("B1")
End Sub

二、复制粘贴可变单元格区域

上面主要是讲的特定区域的，下面讲讲会变动的区域。比如一张表新增了一行，复制区域就改变了，有没有什么比较方便的方式解决呢？

加个CurrentRegion就可以实现，用法如下。

Sub CopyCurrentRange()
    '复制范围会变动的表格
    Sheets(1).Range("A1").CurrentRegion.Copy Sheets(2).Range("A1")
End Sub

从上面的图可以看出，新增了第15行张三点击运行后，仍然能正常复制过去。要复制的表如果有标题、有日期行，或者是筛选后的表格，仍然可以实现复制。

如果要复制的区域是一个表，就可以用以下方式（感觉更复杂了点，好像没啥实际用途）

第一

，插入表格

第二

，重新命名，咱们插入表格之后，在设计——表名称那重命名一下，命名为Table111

第三

：这么操作就可以把表复制过去啦。

Sub CopyTable()
    Sheets(1).Range("table111").Copy Sheets(2).Range("A1")
End Sub

经过实际使用，发现确实不怎么方便，当然了还有Range的End方法，这个在7月29号的文档里用过。

Sub RangeEnd()
    '从A10000往上数，遇到有数据的最下面一行
    Debug.Print Sheets(1).Range("A10000").End(xlUp).Row
    '从A1往下数，有数据的最下面一行
    Debug.Print Sheets(1).Range("A1").End(xlDown).Row
    '从Z1往左数，有数据的最右边一列
    Debug.Print Sheets(1).Range("Z1").End(xlToLeft).Column
    '从A1往右边数，有数据的最右边一列
    Debug.Print Sheets(1).Range("A1").End(xlToRight).Column
End Sub

咱们表格范围是A1:D17大小的话，上面结果值分别为17，17，5，5。但是需要注意就是，选定单元格的那一行一列别有空值，不然返回的内容可能是空值附近的单元格哟。

三、调整单元格区域

用Range.Resize重新调整单元格区域，左边的参数是行数，右边的参数是列数。

另外需要注意的是，调整后的区域是从原来区域左上角开始框哟。

比如下面例子开始是框柱B2:D6，重新设置区域后，就从B2往下和往右算行列数。

Sub RangeResize()
    Dim rng As Range
    Set rng = Range("B2:D6")
    Set rng = rng.Resize(8, 5)
End Sub