如何使用vba在excel中使用下一个可用行
我正在试图制作一个表格，将信息input到另一张表格中。 每当我input信息时，我都无法使其进入下一行。
PS我需要能够保留什么线是下一个空行。
Do Until IsEmpty(ActiveCell.Value) Count = Count + 1 ActiveCell.Offset(1, 0).Select Loop PN = Worksheets("Sheet3").Cells(1, "B").Value Worksheets("Sheet4").Activate Range("C2").Activate Do Until IsEmpty(ActiveCell.Value) If ActiveCell.Value = PN Then QTF = Worksheets("sheet3").Range("B2") Sdoc = Worksheets("sheet3").Range("B3") Edoc = Sdoc + 1461 Worksheets("sheet1").Range("D" + Count) = QTF 你可以使用dynamic的最后一行，例如：
Dim LR as Long With Sheets("NAME") LR = .Cells( .Rows.Count, 1).End(xlUp).Row End With
您input的行是LR …确保这是在循环开始时定义的，或者如果您将循环放在LR上，则在循环之后重新定义LR。
你使用Count作为你的行…如果你想，你也可以在开始时将count定义为一个值，然后在最后迭代计数。
Count = 1 For 'Loop starts 'Code that uses "Count" Count = Count + 1 Next
我用的是：
Do Until IsEmpty(ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop
这使我的activecell在第一个空的单元格。