116问答网 > Excel 表1一个固定的地方做数据输入，在表2中逐行记录数据。当表1的数据重新输入时,自动保存到下一行中

Excel 表1一个固定的地方做数据输入，在表2中逐行记录数据。当表1的数据重新输入时,自动保存到下一行中

2025-04-03 12:44:19

推荐回答（1个）

回答1：

Sub 按钮1_Click()

   Dim sht As Worksheet
   Dim rng As Range
      
   ActiveSheet.Rows(1).Copy
   Set sht = ActiveWorkbook.Worksheets("Sheet2")
   Set rng = sht.Cells(ActiveWorkbook.Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1, 1)
   rng.PasteSpecial xlPasteValuesAndNumberFormats
   rng.PasteSpecial xlPasteFormats
    
End Sub

试试这样吧

要求A列必须有数据