[英]Find next empty row for automatic data entry from excel userform
Private Sub CommandButton1_Click()
NextRow = 2
Sheets("data").Cells(NextRow, 2) = Now
Sheets("data").Cells(NextRow, 3) = Sheets("sheet1").Cells(NextRow, 2)
Sheets("data").Cells(NextRow, 4) = ThisWorkbook.Sheets("Sheet1").Range("b3")
Sheets("data").Cells(NextRow, 5) = ThisWorkbook.Sheets("Sheet1").Range("b4")
Sheets("data").Cells(NextRow, 6) = ThisWorkbook.Sheets("Sheet1").Range("b5")
Sheets("data").Cells(NextRow, 7) = ThisWorkbook.Sheets("Sheet1").Range("b6")
Sheets("data").Cells(NextRow, 8) = ThisWorkbook.Sheets("Sheet1").Range("b7")
Sheets("data").Cells(NextRow, 9) = ThisWorkbook.Sheets("Sheet1").Range("b8")
Sheets("data").Cells(NextRow, 10) = ThisWorkbook.Sheets("Sheet1").Range("b10")
Sheets("data").Cells(NextRow, 11) = ThisWorkbook.Sheets("Sheet1").Range("b11")
Sheets("data").Cells(NextRow, 12) = ThisWorkbook.Sheets("Sheet1").Range("b12")
End Sub
這是我的代碼。 每當我繼續提供價值時,它就會覆蓋。 怎么改變呢? 如何在單獨的行中輸入?
您可以彈出一個小循環來發現下一個空行,例如(未經測試!):
NextRow=2
do until Sheets("data").Cells(NextRow,2) = ""
NextRow = NextRow + 1
Loop
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.