VBA Excel：过滤列答案

【问题标题】：VBA Excel: Filter a columnVBA Excel：过滤列
【发布时间】：2017-05-05 08:38:46
【问题描述】：

我正在尝试过滤一个列，就像我之前多次所做的那样。但出现如下错误：

1004: "Range 类的自动过滤方法失败"

Set wkb1 = Workbooks.Open("D:\Meru\Work\Trace Reports\Automation\Macro Codes\" & CFname & "\Daily Pivots -" & CfolderN & ".xls")

With wkb1.Worksheets("winloss")
    LastRow5 = .Cells(.Rows.Count, "A").End(xlUp).Row
    'MsgBox LastRow
    Set My_Range = .Range("V1:V" & LastRow5)
    'MsgBox My_Range
    My_Range.AutoFilter Field:=22, Criteria1:="Won", Operator:=xlFilterValues
  '   LastRow = .Cells(.Rows.Count, "G").End(xlUp).Row

    .UsedRange.Copy
End With

With wkb1.Worksheets("Trial")
    .Range(.Cells(1, "A"), .Cells(LastRow5, "A")).PasteSpecial xlPasteValues
End With

【问题讨论】：

标签： vba excel filter

【解决方案1】：

由于要过滤的范围只包含一列，所以应该是这样的……

My_Range.AutoFilter Field:=1, Criteria1:="Won", Operator:=xlFilterValues

【讨论】：

不客气，梅鲁！很高兴我能帮上忙。请花一点时间接受答案，将您的问题标记为已解决。