Question

我有数百个包含数据的Excel。按插入＆gt;将花费太长时间。表＆gt;好的 - ＆gt;过滤器＆gt;对于所有这些，数字在范围-1和1之间进行过滤。

Excel看起来像：

Date    Client A    Client B    %   $        Other  Misc    Data    #
11/11/  Bob         Hond        33  $40      N/A    N/A      N/A    0
12/11/  Jack        Jase        3   $40      N/A    N/A      N/A    2

等等,,

更新的最终结果

谢谢Siddharth Rout !!

我的最终代码如下。我将继续测试它以确保没有错误，但我能够做我之前请求的所有。

Sub Auto_Close()
'
' Macro2 Macro
'

'

With Sheets("Sheet1")
    If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
        lastRow = .Cells.Find(What:="*", _
                      After:=.Range("A2"), _
                      Lookat:=xlPart, _
                      LookIn:=xlFormulas, _
                      SearchOrder:=xlByRows, _
                      SearchDirection:=xlPrevious, _
                      MatchCase:=False).Row
    Else
        lastRow = 1
    End If
End With

    Range("A2").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, , xlYes).Name = _
        "Table1"
    Range("Table1[#All]").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:= _
        ">=VALUE", Operator:=xlAnd, Criteria2:="<=VALUE"
End Sub

我将它与VBSCRIPT结合使用，它就像魔法一样。干杯

VBA宏在关闭时在过滤范围之间创建一个表

0 个答案: