从excel用户窗体中find自动数据input的下一个空行

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 

这是我的代码。 每当我继续给它的价值它覆盖。 如何改变它？ 如何在单独行中input？

Answer 1

例如，您可以popup一个小循环来发现下一个空行（未经testing！）：

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