Question

我已经设置了一个宏来过滤excel工作表，并将符合特定条件的行复制到另一个工作表。这是marcro：

Sub O15Filter75() 
Application.ScreenUpdating = False 
Sheets("O1.5 (Filter 2)").Range("A5:AO" & Sheets("O1.5 (Filter 2)").Range("A" & Rows.Count).End(xlUp).Row).ClearContents 
With Sheets("O1.5").Range("A4:AO" & Sheets("O1.5").Range("A" & Rows.Count).End(xlUp).Row) 
    .AutoFilter 8, ">=" & Sheets("FILTERS").Range("D7") 
    .AutoFilter 9, ">=" & Sheets("FILTERS").Range("D8") 
    .AutoFilter 10, ">=" & Sheets("FILTERS").Range("D8") 
    .AutoFilter 11, ">=" & Sheets("FILTERS").Range("D9") 
    .AutoFilter 12, ">=" & Sheets("FILTERS").Range("D10") 
    .AutoFilter 13, ">=" & Sheets("FILTERS").Range("D11") 
    .AutoFilter 14, ">=" & Sheets("FILTERS").Range("D12") 
    .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(12).Copy Sheets("O1.5 (Filter 2)").Cells(5, "A") 
    .AutoFilter 
End With 
Application.ScreenUpdating = True 
End Sub

我现在想要为需要计算某些内容的代码添加一个不同的过滤器。我想创建一个过滤器，如果列S中的行中的值介于列T和U的值之间，则可以解决这个问题。这是我在Excel工作表中没有执行的计算，这是我想要的在VBA中做，但是我不知道如何使用自动过滤器来完成它，因为在技术上没有用于过滤数据的columun。

如果我在Excel工作表中有一个列，我将使用这个公式：

=IF(Sxx=MEDIAN(Sxx,Txx,Uxx),TRUE,FALSE)

如果有人可以帮助我将其整合到我的VBA代码中，我将不胜感激。

使用VBA计算将数据过滤到另一个工作表

0 个答案: