Extra Row Included At Bottom

  • I've got the following code for the attached worksheet. My problem lies at the end of the code where I'm trying to determine the length of characters in column A. I get a zero value after the last row with an actual value. Does anyone know what is causing this? I know I can change my code to:

    aLen = Range("A1").End(xlDown).Row - 1

    but that bypasses the problem, rather than fix it.

    By the way, if you run the code, make sure you only have the worksheet "1" in the workbook.

  • Re: Extra Row Included At Bottom


    In this section you find a value for dLen2 and then later delete the first row. Either subtract 1 from dLen2 or reset dLen2 before using it.

  • Re: Extra Row Included At Bottom

    You the man Brian Walters, you the man.

    Thanks to all for making this website work!

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!