怎么将Excel中最后一列内容相同的所有行提取保存到文本文件中

'先引用Microsoft Excell 11.0 Object lirary
Option Explicit

Private Sub Command1_Click()
    Dim xlExcel As New Excel.Application
    Dim xlBook As New Excel.Workbook
    Dim xlSheet As New Excel.Worksheet
    Dim iRow As Long
    
    xlExcel.Workbooks.Open "D:\Book1.xls"
    Set xlBook = xlExcel.Workbooks(1)
    xlBook.Sheets(1).Select
    
    For iRow = 1 To xlExcel.ActiveSheet.UsedRange.Rows.Count
        '将第F列（即第6列）的所有数据导入到List1中。要写文件就很简单了。
        List1.AddItem xlBook.Worksheets(1).Cells(iRow, 6)
    Next
    
    xlBook.Close
    xlExcel.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlExcel = Nothing
    
End Sub