Question

Excel 表1一个固定的地方做数据输入，在表2中逐行记录数据。当表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").UsedRange.Count + 1, 1)
rng.PasteSpecial xlPasteValuesAndNumberFormats
rng.PasteSpecial xlPasteFormats

End Sub
网上搜别人的，我试了下，1.多输入几个之后会出现数据保存不连接，而是跳过好几行才显示，怎么让它连续保存。2.怎么设置保存的位置，比如说想保存从sheet2中C5开始。小白谢谢亲了！

Answer 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列必须有数据