在EXCEL中使用vba递增行和删除行

上面的语句选择了H列的第25行。现在我想知道的是， 如何增加H常量的行数？ 是的，我在google$h24上看到过，列保持不变，行保持递增

但是我必须把它从H25增加到H柱的末端，我不知道H柱的末端在哪里。我该怎么做？我们可以使用VBA正确声明变量并递增它

                Range("H25")

我需要做的实际任务是检查从H25到最后的行，将它们的值输入我的VBA并进行一些计算，然后将其返回给它们。我在增加行数方面遇到了困难。有人能告诉我从VBA本身删除行的宏吗？谢谢你。

do While（）循环听起来像是你可能需要的

   I was thinkin to put it like these Range("Hvariablename")?

Do While（单元格（行，列）”）
'要在单元格（行、列）上执行的某些代码
环

或者你也可以对for循环做同样的事情

并使用

lastRow=Cells（“H24”）.End（xlDown）.Row

查找最后一个单元格。（这与按下Ctrl+Down键相同。因此，如果单元格H25和结尾之间有空单元格，则需要对此进行说明）

无论哪种方式，我都会考虑使用R1C1单元格引用样式来移动单元格，而不是A1样式。在字母列中移动要比在数字列中移动困难得多。您还应该记住，Excel2007中的“最后一行”是一个非常高的数字，循环到最后一行可能比循环到最后一个重要单元格要长得多

---

我希望这是对的。

我相信您可以提供有关该范围的详细信息。当你的意思是“必须检查从H25到结尾的行”和“这里的结尾是什么？”

如果您手动向下复制公式，它将自动转到G列中最后一行的值。这是您的情况吗？我并不是假设第25行下面的H行已经有了一些值。是这样吗

如果使用G列中的值作为最后一行的结尾，则可以使用

Selection.AutoFill

如果在H列中已经有值，并且希望遍历这些值，则可以在VBA中定义动态范围并循环遍历

定义动态范围：根据此公式添加一个新范围（显然，您可能需要根据需要调整它）

=偏移量（Sheet1！$H$25,0,0，COUNTA（Sheet1！$H:$H），1）

然后，在VBA中，遍历它

Do While(cells(row,col)<>"")
      'Some code to be executed on cell(row,col)
Loop

及时：要删除Excel中的整行，您将使用

Sub TEST()

    Dim oCell As Excel.Range
    Dim oRange As Excel.Range

    Set oRange = [TestRange]

    For Each oCell In oRange

        Debug.Print oCell.VALUE

    Next oCell

End Sub

Sheets(1).Rows(25).EntireRow.Delete