[day 1]用VBA实现最简单的EXCEL复制数据

#跟着文心一言学VBA

Sub CopyData()  
    Dim source_sheet As Worksheet  
    Dim destination_sheet As Worksheet  
      
    ' 选择源工作表和目标工作表  
    Set source_sheet = ThisWorkbook.Worksheets("Sheet1")  
    Set destination_sheet = ThisWorkbook.Worksheets("Sheet2")  
      
    ' 复制数据  
    source_sheet.Range("A1:A10").Copy Destination:=destination_sheet.Range("A1:A10")  
      
    ' 显示结果  
    MsgBox "Data has been copied from " & source_sheet.Name & " to " & destination_sheet.Name  
End Sub

1. Dim source_sheet As Worksheet：声明一个变量 source_sheet，用于存储源工作表的名称。
2. Dim destination_sheet As Worksheet：声明一个变量 destination_sheet，用于存储目标工作表的名称。
3. Set source_sheet = ThisWorkbook.Worksheets("Sheet1")：将变量 source_sheet 的值设置为当前工作簿中名为 "Sheet1" 的工作表。