☰

过滤和排序

tag-icon • tag-icon microsoft-excel vba
过滤和排序

你好，我有两个问题。

  • 创建过滤器以查找任何空白单元格并删除整行，然后显示所有数据

  • 对 Range("E3:E") 上的输入之一进行从 A 到 Z 的排序

我尝试过这个但一直出现错误“对象工作表方法错误”

    Set wsInput = Workbooks("InputB.xls").Worksheets("HC_MODULAR_BOARD_20180112")
    Set wsOutput = Workbooks("Output.xls").Worksheets("Sheet1")
    Set Ws2 = Workbooks("InputA.xls").Worksheets("Sheet0")


With wsInput

    'Error starts from here
     wsInput.Range("F3:F").AutoFilter Criteria1:="="
     wsInput.Range("F3:F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
     wsInput.ShowAllData

     LastRow = wsInput.Cells(wsInput.Rows.Count, "E").End(xlUp).Row
         Rows("3:LastRow").Select
         .Sort.SortFields.Clear
         .Sort.SortFields.Add Key _
        :=Range("E3:LastRow"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal

    With wsInput.Sort
        .SetRange Range("A2:LastRow")
        .header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

    End With

我相信我的排序也存在一些问题，如果你们发现任何错误请告诉我。

非常感谢，阿德里安

相关内容