根据条件复制范围

Question

我想编写一个宏来仅复制具有数据的单元格范围并忽略值为NA的单元格

我已经构建了一个帮助工具，以确保从多个来源收集的数据放置在正确的相应列中，然后我从那里复制这些列并将其粘贴到主工作表中。填充这些值的范围是A3 到R，而在R 列中是Vlookup。

我想编写一个宏，这样我就可以按下启用宏的按钮来复制该范围内的单元格，并在 Vlookup 停止返回值的位置结束。到目前为止，我已经能够编写它，因此它会复制到 Vlookup 的末尾，但它仍在收集包含 R 中的公式的结果。

目前撰写：

Sub Copy()
    Dim ws As Worksheet
    Set ws = Sheets("Sheet1")
    ws.Range(ws.[A:R], ws.Cells(Rows.Count, "R").End(xlUp)).Copy
End Sub

Answer 1

一种方式。

1. 使用自动过滤器。
2. 过滤掉不是#N/A的值
3. 一次性复制过滤后的范围。

这是你正在尝试的吗？

Option Explicit

Sub Sample()
    Dim ws As Worksheet
    Dim rng As Range, filteredrng As Range
    Dim lrow As Long

    Set ws = Sheet1 '<~~ Change this to the relevant sheet

    With ws
        .AutoFilterMode = False

        lrow = .Range("R" & .Rows.Count).End(xlUp).Row

        Set rng = .Range("A3:R" & lrow)

        With rng
           .AutoFilter Field:=18, Criteria1:="<>#N/A"
            Set filteredrng = .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow
        End With

        If Not filteredrng Is Nothing Then
            '~~> COPY RANGE CODE HERE
        End If

        .AutoFilterMode = False
    End With
End Sub