VBA：筛选值并复制偏移量

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

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

来源

2014-07-22 spaindc

'.Offset'命令没有任何意义，上下文，因为你已经选择了一列（“O”）（当你选择一列时你垂直偏移......） – Sifu

ks的帮助Sifu。通过将O限制为O1：O1000，我可以使其工作。你知道我可以如何使它只在偏移量（1，-2）有一个值的时候进行复制？（非空白） – spaindc

你可以放一个If语句。沿着这个：'If Not Isempty（{Offset cell}）然后'复制'结束if' – Sifu

我想通因为Excel只有有限的总行数，所以如果你添加范围O1：O1000，它就可以工作了！

来源

2014-07-22 20:46:38 spaindc

VBA：筛选值并复制偏移量

回答

相关问题