如何使用vba在excel中使用下一个可用行答案

【问题标题】：How to use next avaible row in excel using vba如何使用vba在excel中使用下一个可用行
【发布时间】：2017-09-22 18:53:40
【问题描述】：

我正在尝试制作一个将信息输入另一张表的表格。我每次输入信息时都无法进入下一行。

附：我需要能够保留下一个空行是哪一行。

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

【问题讨论】：

retain 是什么意思？

标签： vba excel

【解决方案1】：

您可以为此使用动态的最后一行，例如：

Dim LR as Long
With Sheets("NAME")
    LR = .Cells( .Rows.Count, 1).End(xlUp).Row
End With

您输入的行是 LR...确保在循环开始时定义它，或者如果您的循环基于 LR，请在循环之后重新定义 LR。

您使用 Count 作为您的行...如果您愿意，您还可以在开始时将 count 定义为一个值，然后在结束时迭代 count。

Count = 1
For 'Loop starts
    'Code that uses "Count"
    Count = Count + 1
Next

【讨论】：

【解决方案2】：

我用的是：

Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop

这将我的活动单元格放在第一个空单元格上。

【讨论】：