excel vba：范围 xldown 始终复制至少 3 行

Question

xldown 我遇到了一些疯狂的问题。

我希望它复制一个会变化的范围（可能有 0 个条目、1 个条目或 10 个条目。所以我使用 Find 和 RngA.offset(1,4) 来引用起始位置，我希望范围可以去直到找到一个空单元格。如果至少有 3 行数据，这似乎可以工作（例如，如果有 4 行，然后是空白，它将只复制 4），但如果有 3 行或更少，它会复制所有3（例如，如果第 1 行和第 3 行有数据，但第 2 行没有，它应该只复制第 1 行，因为第 2 行是空白的。但是它复制 1-3，第 2 行有空白）。我希望有道理。有人可以帮忙吗？

    Sub SubmitData()
    Dim RngA As Range
     With Sheets("Review").Range("A:A")
        Set RngA = .Find(what:="TOR Design Checklist", lookat:=xlWhole)
        Range(RngA.Offset(1, 4), RngA.Offset(1, 4).End(xlDown)).Copy _
            Destination:=Sheets("Field_Phase 1").Range("H7")
     End With
    End Sub

Answer 1

这是正常的。按照您的示例，在您调用 xldown 之前，“选择”已经位于最后一行。

只需在它之前添加一个if 语句来处理这种独特的情况。

if {Range under your selected range} = "" then
    ' Only copy the 1 range
else
    ' Do as usual
End if

编辑 1

适合您的问题：

我认为它应该有效。如果没有，请评论。

Sub SubmitData()
Dim RngA As Range
With Sheets("Review").Range("A:A")
    Set RngA = .Find(what:="TOR Design Checklist", lookat:=xlWhole)
    If RngA.offset(2,4).value = "" then
        ' Only copy the 1 range
        Range(RngA.Offset(1, 4),RngA.Offset(1, 4)).Copy _
            Destination:=Sheets("Field_Phase 1").Range("H7")
    else
        ' Do as usual
        Range(RngA.Offset(1, 4), RngA.Offset(1, 4).End(xlDown)).Copy _
            Destination:=Sheets("Field_Phase 1").Range("H7")
    End if
End With
End Sub