希望用VBA实现，sheet1中的数据，先解除filter,然后再filter出BF列值等于1的数据 ，将filter出的对应的AF列的值，拷到Sheet2的T列里

要在VBA中实现这个功能，你可以使用以下步骤：

1. 首先，需要解除Sheet1的过滤（Filtering）。这可以通过设置`AutoFilter`属性为False来完成。假设`Sheet1`的第1行包含列标题，可以这样做：

With Sheet1.Range("A1:B" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row)
    .AutoFilter Field:=2, Criteria1:="<>1" '解除对BF列的过滤（假设BF列在第2列）
    .AutoFilter = False '关闭所有过滤
End With

2. 然后，应用新的过滤条件，只选择BF列值等于1的行，并获取对应AF列的值。你可以通过循环遍历每一行并检查过滤后的结果来实现：

Dim rng As Range, cell As Range
Set rng = Sheet1.Range("B1:B" & Sheet1.Cells(Rows.Count, "B").End(xlUp).Row) '只考虑AF列

For Each cell In rng
    If cell.Value = 1 Then '检查BF列是否等于1
        Dim afCell As Range
        Set afCell = cell.Offset(0, 1) 'AF列在BF列旁边，所以偏移1位
        Sheet2.Cells(Sheet2.Cells.Rows.Count, "T").End(xlUp)(1).Value = afCell.Value '拷贝AF列的值到Sheet2的T列
    End If
Next cell

3. 最后，在`Sheet2`的T列添加新内容后，记得更新滚动条位置以便看到新增的内容。

如果你需要定时运行此脚本，可以在Excel的VBA编辑器中创建一个新的模块，编写上述代码，然后设置宏自动运行的时间。