排序Userform ListBox

Question

我的数据有4列，标题如下： 标题1，标题2，标题3和标题4.

我使用以下代码创建了一个Listbox。在userform中我有2个选项按钮，表示2列。我想根据选择对列表框进行排序。示例：如果我选择＆＃39;序列号＆＃39;选项框，它应根据第一列值（标题1）进行过滤，如果我选择＆＃39; job＆＃39;，则应根据第三列值（标题3）进行过滤。

有人可以帮我找一个代码吗？

请参阅下面的列表框代码。

Private Sub UserForm_Initialize() 

    With ListBox1 
        .ColumnCount = 4 
        .ColumnWidths = "130;30;30;130" 
    End With 

    LstRow = Cells(Rows.Count, 1).End(xlUp).Row 

    For a = 0 To LstRow - 2 
        b = a + 2 
        ListBox1.AddItem 
        ListBox1.list(a, 0) = Cells(b, 4) 
        ListBox1.list(a, 1) = Cells(b, 1) 
        ListBox1.list(a, 2) = Cells(b, 3) 
        ListBox1.list(a, 3) = Cells(b, 2) 

    Next a 

End Sub