Code cho Listview như sau:
Sub Set_ICD(ByVal Ch As String, ByVal Col As Integer)
Dim Tm, i, j, It As ListItem
Tm = Sheets("ICD10").Range("B2:C" & Cells(Rows.Count, 2).End(xlUp).Row)
Me.ListView1.ListItems.Clear
For i = 1 To UBound(Tm, 1)
If UCase(Tm(i, Col)) Like "*" & UCase(Ch) & "*" Then
Set...