VBA 单元格基本操作 – 复制 粘贴 区域选择

  • Post author:
  • Post category:其他


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


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

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

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



版权声明:本文为Di77HaoWenMing原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。