vba - 复制/粘贴过滤表中包含空白的整列

Question

我编写了一个宏，将 CSV 文件中的数据导入到表中，过滤掉除一个类别之外的所有类别，复制剩下的内容，然后将其粘贴到另一张工作表上。

    Set rNew = NewWS.Range("M2") 'set cell where data will be pasted
    rBand.AutoFilter Field:=6, Criteria1:="NFR" 'in table "rband", filter out all but NFR category
    If WorksheetFunction.Count(rBand.Cells.SpecialCells(xlCellTypeVisible)) <> 0 Then
        Set rData = Generator.Sheets("Fband").Range("E2") 'select first y value
        Set rData = Range(rData, rData.End(xlDown)) 'select range of y values
        rData.Copy
        rNew.PasteSpecial
        Set rData = Generator.Sheets("Fband").Range("C2") 'select first x value
        Set rData = Range(rData, rData.End(xlDown)) 'select range of x values
        rData.Copy
        NewWS.Range("L2").PasteSpecial
    End If

当表中 E 列和 F 列的每个单元格都已填写(即理论数据)时，此代码可以完美运行。但是，当使用真实世界数据时，其中一些单元格将为空白。在这种情况下，宏将正确复制并粘贴 x 值，但只会复制并粘贴第一个 y 值。我认为空白是导致问题的原因，但如果将它们过滤掉，为什么还会出现问题呢？

比下面可能需要的更多详细信息:
相关数据是发动机振动。 C 列是频率，E 是振幅，F 是类别(“NFR”表示振动频率与发动机转速匹配)。我们使用的 FFT 软件将原始数据(CSV 格式)输出为等间隔(线性刻度)频率及其幅度的列表。我的宏的第一部分按倍频程频率(对数刻度)对它们进行排序。根据采样率，低频下的频段可能多于原始数据点；这就是为什么有些行是空白的。我希望我的宏能够忽略空白，以便它可以在以任何采样率记录的任何数据集上工作。

Answer 1

End(xlDown) 将您带到该列中的第一个空白处。因此，您不会总是捕获整个列。为此，请尝试以下代码:

Dim LastRow As Long
Set rNew = NewWS.Range("M2") 'set cell where data will be pasted
rBand.AutoFilter Field:=6, Criteria1:="NFR" 'in table "rband", filter out all but NFR category
If WorksheetFunction.Count(rBand.Cells.SpecialCells(xlCellTypeVisible)) <> 0 Then
    LastRow = Generator.Sheets("Fband").Range("E" & Rows.Count).End(xlUp).Row
    Set rData = Generator.Sheets("Fband").Range("E2:E" & LastRow) 'select range of y value
    rData.Copy
    rNew.PasteSpecial
    LastRow = Generator.Sheets("Fband").Range("C" & Rows.Count).End(xlUp).Row
    Set rData = Generator.Sheets("Fband").Range("C2:C" & LastRow) 'select range of x value
    rData.Copy
    NewWS.Range("L2").PasteSpecial
End If