Function Dem(ByVal Rg As Range)
Dim ch, i
If Rg Is Nothing Then Dem = 0: Exit Function
For i = 1 To Rg.Columns.Count
ch = ch & Join(WorksheetFunction.Transpose(Rg.Columns(i)), "")
Next
Dem = Len(ch)
End Function
minh muon dem co bao nhieu so 1 trong vung co 4 cell co du lieu lan luot la: 1124, 4512, 14, 1125 thi lam ntn ha ban oi. Kq = 6.
thank nhieu. lam on mail theo dc vanphonglp@gmail.com