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

 Option Explicit

    
  
    
 Sub CopyRange()
    
     '复制单元格内容示例1
    
     '注意：单元格的格式、公式、批注等也会被复制过去哟
    
     Sheets(1).Range("A1").Copy Sheets(1).Range("B1")
    
 End Sub
    
    
    
    
    AI写代码

  
    
 Sub CopyRange2()
    
     '复制单元格内容示例2，打开了下面2个工作表后，就可以通过工作表的名称进行复制啦
    
     Workbooks("测试表1.xlsx").Sheets(1).Range("A1").Copy _
    
     Workbooks("测试表2.xlsx").Sheets(1).Range("A1")
    
 End Sub
    
    
    
    
    AI写代码

 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
    
    
    
    
    AI写代码

 Sub CopyRange4()

    
     '复制单元格内容示例4，复制区域，选择一个单元格进行粘贴
    
     Sheets(1).Range("A1:D5").Copy Sheets(2).Range("A1")
    
 End Sub
    
    
    
    
    AI写代码

 Sub MoveRange1()

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

 Sub CopyCurrentRange()

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

 Sub CopyTable()

    
     Sheets(1).Range("table111").Copy Sheets(2).Range("A1")
    
 End Sub
    
    
    
    
    AI写代码

 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
    
    
    
    
    AI写代码

 Sub RangeResize()

    
     Dim rng As Range
    
     Set rng = Range("B2:D6")
    
     Set rng = rng.Resize(8, 5)
    
 End Sub
    
    
    
    
    AI写代码