vba - UsedRange.Count 计数错误

Question

摘要:我从一张表中取出一行数据并将其粘贴到另一张表中，但是该表将是一种日常使用的东西，新数据只是在旧数据下方输入。

问题:在每次新运行时，都会将 7 添加到 UsedRange.Count .例如:一次运行 UsedRange.Count将是 7；下次我运行该函数时，计数将为 14。

我在找什么:为什么会这样，有没有办法帮助UsedRange更准确

- 为了引用，我已经包含了整个函数。

Function eftGrabber()

        Dim usedRows As Integer
        Dim i As Integer

        ChDir "\\..."       

        Workbooks.Open Filename:= _
        "\\...\eftGrabber.xlsm"

        usedRows = Sheets("EFT").UsedRange.Count

        Windows("Data").Activate

        Sheets("DataSheet").Range("A11").EntireRow.Copy

        Windows("eftGrabber").Activate

        Sheets("EFT").Range("A" & usedRows + 1).Select

        ActiveSheet.Paste

        i = usedRows

        Do                            'THIS LOOP DELETES BLANKS AFTER POSTING NEW LINES

            Range("A" & i).Select

            If Range("A" & i) = "" Then

                ActiveCell.EntireRow.Delete

            End If

              i = i - 1

        Loop Until i = 1

        Windows("eftGrabber").Activate

        ActiveWorkbook.Save

  Windows("eftGrabber").Close

End Function

如果我遗漏了任何重要的细节，请告诉我。提前致谢!

Answer 1

更改:usedRows = Sheets("EFT").UsedRange.Count
至:usedRows = Sheets("EFT").Range("A" & Sheets("EFT").Rows.Count).End(xlUp).Row
其中“A”可以更改为您希望计算总列数的任何行。

使用UsedRange有危险因为它会考虑这些事情和没有数据的格式化单元格以及其他可能会给您带来意想不到的结果的事情，例如您希望数据从 Range("A1") 开始，但它实际上是从另一个范围开始的!

但是，我会说，如果您真的想使用 UsedRange ，您上面的代码仍然是错误的获取行。改用这个 UsedRange.Rows.Count或要获取 UsedRange 的最后一个绝对单元格，请使用 UsedRange.SpecialCells(xlCellTypeLastCell).Row