在excel中使用while循环查找最后一行

时间:2017-02-07 04:34:17

标签: excel-vba while-loop vba excel

我想使用while循环在excel电子表格的A列中找到包含文本的最后一行。我不确定我需要的确切语法,因为我是VBA的新手。我意识到还有其他方法可以找到最后一行,但我需要使用从第20行开始的while循环。

Dim Row As Integer
Row = 20
Do While .Range("A" & Row) <> ""
     Row = Row + 1
Loop

2 个答案:

答案 0 :(得分:0)

您的代码只会找到该列中的第一个空单元格,该单元格不一定在最后一次使用的行之后。为什么一定是&#34;而#34;环?有六种方法可以在没有while循环的情况下找到最后使用过的行或列。只需google&#34; vba excel找到最后一行&#34;

答案 1 :(得分:0)

循环到最后一行:

Dim X as long 'Note, use Long, NOT Integer
For X = 20 to Range("A" & rows.count).end(xlup).row
    'What you want to do in your loop here
Next

在其他人指出的情况下,虽然不是一个好的选择,但即使之后有细胞数据,它也会在空白时停止。

就个人而言,我试图远离命名变量,与VBA中的对象或方法相同。