写一段VBA程序，读取excel表“目录”工作簿中F列中单元格等于1对应的B列的单元格内容，把它存入一个list

以下是一个简单的VBA程序，可以读取“目录”工作簿中F列中单元格等于1对应的B列的单元格内容，并将其存入一个list：

Sub ReadData()
    Dim mySheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim myList As Object
    
    Set mySheet = ThisWorkbook.Sheets("目录")
    lastRow = mySheet.Cells(Rows.Count, "F").End(xlUp).Row
    
    Set myList = CreateObject("System.Collections.ArrayList")
    
    For i = 1 To lastRow
        If mySheet.Cells(i, "F").Value = 1 Then
            myList.Add mySheet.Cells(i, "B").Value
        End If
    Next i
    
    ' do something with the list
    
End Sub

该程序首先定义了一个Worksheet对象来引用“目录”工作簿，然后确定了F列中最后一个非空单元格所在的行数。接下来，程序创建了一个ArrayList对象，用于存储符合条件的B列单元格内容。最后，程序遍历了F列中的每个单元格，如果该单元格的值等于1，则将对应的B列单元格内容添加到ArrayList中。

请注意，上述代码中的“do something with the list”部分尚未实现。根据实际需要，你可以将该部分替换为将ArrayList中的数据导出到另一个工作簿或进行其他操作。