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开始。小白谢谢亲了!
试试这样吧
要求A列必须有数据