Question

我一直在尝试这样做，但不断收到"Application Defined or Object defined error"行的错误.Offset。在电子表格“日志框架信息”中，我想查找列O 中值Sustainability:*的每一行，并复制列M 中的相应信息行。然后我希望从单元格 B73 开始粘贴到电子表格“SPSE Tran”的信息。我知道这不在代码中，但是，如果可能的话，如果 M 是空白的话，应该跳过复制 M列（即使<}中有Sustainability:* strong>列O 。

Sub test()

Dim RngDest as Range

With Sheets("SPSE Tran")
    Set RngDest = .Range("B73")
End With

With Sheets("Log Frame Info").Range("O:O")
    .AutoFilter 1, "Sustainability:*"
    .Offset(1, -2).Copy RngDest
    .AutoFilter
End With

End Sub

Answer 1

我想通了，范围最后需要限制，因为Excel的总行数有限。因此，如果你添加范围O1：O1000就可以了！

VBA：过滤值并复制偏移量

1 个答案: