cám ơn sự giải đáp của anh ạ... thế mới thấy em ngu ngơ về món này quá !!!!!!!!!
Chi tiết hết cỡ rồi bạn, nếu muốn rõ nữa thì chỉ phóng to hơn lên thôi.
để em ngâm cứu lại rồi lại lên hỏi các anh tiếp ! cám ơn mọi người đã giúp đỡ em ạ!!!!!!!!
1/ Bài 4 tôi có góp ý "Bạn nên nhờ mọi người thiết kế lại File cho gọn", bạn không chịu nghe mà còn chờ ngâm cứu gì nữa.để em ngâm cứu lại rồi lại lên hỏi các anh tiếp ! cám ơn mọi người đã giúp đỡ em ạ!!!!!!!!
Bạn xem thử Code đã mã hóa họ và tên (code này của anh SA_DQ thì phải).chắc lúc nãy em run tay nên xóa nhầm..hic
Bài đã được tự động gộp:
Function Firstchar(str As String) As String
Dim i As Byte
str = Trim(str): Firstchar = Left(str, 1)
For i = 1 To Len(str)
If Mid(str, i, 1) = " " Then Firstchar = Firstchar + Mid(str, i + 1, 1)
Next
End Function
Sub MAHOTEN()
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
Dim i&, j&, t&, d&
Dim Arr(), KQ(), DK As String, str As String
With Sheet7
d = .Range("A" & Rows.Count).End(xlUp).Row
Arr = .Range("B6:B" & d).Value
ReDim KQ(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
If Arr(i, 1) <> Empty Then
str = Trim(Arr(i, 1))
DK = Firstchar(str)
If Not dic.Exists(DK) Then
t = 1
dic.Add (DK), t
KQ(i, 1) = DK & "00"
Else
t = k + 1
KQ(i, 1) = DK & "0" & t
End If
End If
Next i
If t Then .[A6].Resize(UBound(Arr), 1) = KQ
End With
Set dic = Nothing
End Sub
