Kết quả tìm kiếm

Em có đoạn code: Sub tachtrung2() Dim i As Long, j As Long, text As String, text2 As String, text3 As String text3 = "Dien;Dien;Dan;dien;giai;phap;dien;dan;phap;excel;Excel;phap;dan;2017;2017;dien;EXCEL;2017" text = Replace(";" & text3 & ";", ";", " ") With...

Em có đoạn code này : Function khongtrung3(rng As Range) Dim arr(), sarr(), i As Long, j As Long, k As Long, l As Long, text As String arr = rng.Value ReDim sarr(1 To UBound(arr), 1 To UBound(arr, 2)) With CreateObject("scripting.dictionary") For i = 1 To UBound(arr) For j = 1 To...