查找下一個空行用於自動輸入數據excel userform

Question

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 

這是我的代碼。每當我繼續給予價值，它就會重寫。如何改變它？如何在單獨行中輸入？

Answer 1

你可以在彈出一個小環，發現下一個空行，例如（未經測試！）：

NextRow=2 
do until Sheets("data").Cells(NextRow,2) = "" 
    NextRow = NextRow + 1 
Loop