如何在Excel中使用命令按钮在选定数据上过滤列表框

Question

Private Sub cmdService_Click()
Dim a, v, z
a = Range("A1", Range("F" & Rows.Count).End(xlUp))
With CreateObject("scripting.dictionary")
    .comparemode = vbTextCompare
    For Each v In a
        If Not IsEmpty(v) And Not .exists(v) Then .Add v, Nothing
    Next
    z = .keys
End With
Me.ListBox1.List = Application.Transpose(z)
End Sub

我只想知道当我在VBA EXCEL中单击命令按钮时如何在列表框中显示过滤的数据 例如

名为（5A）的命令按钮

当我单击该按钮时

它将在列表框中显示所有5A行

谢谢