VBA将一个sheet中的数据自动复制到另一个

一、场景介绍

【sheet1】

【sheet2】

要求：将sheet1中销售清单中的数据点击【保存】按钮后自动复制到sheet2的最后一行

二、解决代码

Sub Copy_Data()
   Sheets("销售清单").Select
   Range("F22").Select
   Selection.Copy
   Sheets("销售数据库").Select
   Range("A1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   Sheets("销售清单").Select
   Range("H22").Select
   Selection.Copy
   Sheets("销售数据库").Select
   Range("B1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, -1).Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   Sheets("销售清单").Select
   Range("F24:H24").Select
   Selection.Copy
   Sheets("销售数据库").Select
   Range("C1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, -2).Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   Sheets("销售清单").Select
   Range("F26").Select
   Selection.Copy
   Sheets("销售数据库").Select
   Range("D1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, -3).Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   Sheets("销售清单").Select
   Range("H26").Select
   Selection.Copy
   Sheets("销售数据库").Select
   Range("E1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, -4).Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
   
End Sub

其中

   Sheets("销售清单").Select
   Range("F22").Select
   Selection.Copy
   Sheets("销售数据库").Select
   Range("A1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

这个为主代码模块

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

仅复制值

三、具体代码含义学习

 Range("A1").Select

 Range(Selection, Selection.End(xlDown)).Select
 Range(Selection, Selection.End(xlToRight)).Select

含义：选中A1向右向下的区域

   Range("A1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, 0).Range("A1").Select 

含义：选中A1往下的第一个空白格

***代码小白初来乍到，若有问题或优化建议，请多多指教~~~