Excel VBA-选择最后一个完全空白行的范围

我有一些VBA代码需要选择从A84到X的范围。我正在使用此代码选择数据中最后一行的范围

Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range("A84:X" & Lastrow).Select

---

这将在第一行停止，a列中有一个空白单元格。我需要它检查A到Z列，而不仅仅是A。例如，如果第84到94行的A列中有一个值，但对于第95行，F或R列中只有数据，它将不包括第95行。如何查看A:Z列以确定行是否为空？

只需将

Lastrow

设置为

Lastrow = Range("A:Z").Find("*", , , , xlByRows, xlPrevious).Row

---

只需将

Lastrow

设置为

Lastrow = Range("A:Z").Find("*", , , , xlByRows, xlPrevious).Row

---

我几乎可以肯定有更好的方法，但其中一种方法是循环遍历列，找到每个列的最后一行，然后确定其中哪一行是最好的

maxRow = 0
for i=1 to 24 'A through X
    if maxRow < ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row then
        maxRow = ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row
    end if
next i

maxRow=0
对于i=1至24'A至X
如果maxRow

---

然后，

maxRow

就是你想要的

lastrow

。

我几乎肯定有更好的方法，但其中一种方法是循环遍历列，找到每个列的最后一行，然后确定其中哪一行最大

maxRow = 0
for i=1 to 24 'A through X
    if maxRow < ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row then
        maxRow = ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row
    end if
next i

maxRow=0
对于i=1至24'A至X
如果maxRow

---

然后，

maxRow

就是您想要的

lastrow

。

您可以遍历所有列，并比较每列的最后一行。然后，您可以在发现包含更多行的列时更改lastRow变量，如下所示：

Dim i As Integer
Dim lastRow As Integer
lastRow = 1
For i = 1 To 26
    Dim lst As Integer
    lst = Cells(Rows.Count, i).End(xlUp).Row
    If lst > lastRow Then
        lastRow = lst
    End If
Next
Range("A84:X" & lastRow).Select

---

您可以遍历所有列并比较每列的最后一行。然后，您可以在发现包含更多行的列时更改lastRow变量，如下所示：

Dim i As Integer
Dim lastRow As Integer
lastRow = 1
For i = 1 To 26
    Dim lst As Integer
    lst = Cells(Rows.Count, i).End(xlUp).Row
    If lst > lastRow Then
        lastRow = lst
    End If
Next
Range("A84:X" & lastRow).Select

---

您可以使用usedrange函数，该函数返回工作表上已使用单元格的完整范围：，如下所示：

工作表（“工作表名称”）.UsedRange.lastRow

---

这将为您提供最后使用的行，而不仅仅是第一列中包含数据的最后一行。您可以使用usedrange函数，该函数返回工作表中已使用单元格的完整范围：，如下所示：

工作表（“工作表名称”）.UsedRange.lastRow

---

这将为您提供最后使用的行，而不仅仅是第一列中包含数据的最后一行

列X或列Z？？我需要选择范围中的列X，但我需要它检查A:Z以确定它是否为空。列X或列Z？？嗯，我需要选择范围中的列X，但我需要它来检查A:Z，以确定它是否为空。