Bạn xem thế này có đúng ý bạn khôngdoi_trai_co_don đã viết:
Option Explicit: Option Base 1
[b]Sub XepCot()[/b]
On Error Resume Next
Dim lRow As Long, iJ As Long, iZ As Long
Dim bDem As Byte, ViTri As Byte, NoiChep As Byte
Dim LoaiOng As String
Sheets("Sheet1").Select: lRow = Range("A65432").End(xlUp).Row
Range("C1:O" & lRow).ClearContents
Range("A1:A" & lRow).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ReDim LuuKT(lRow): NoiChep = 2
For iJ = 2 To lRow + 1
ViTri = InStr(Cells(iJ, 1), "-")
If Left(Cells(iJ, 1), ViTri - 1) <> LoaiOng Then
If LoaiOng <> "" Then
NoiChep = NoiChep + 1
Cells(1, NoiChep) = LoaiOng
For iZ = 1 To bDem
Cells(iZ + 1, NoiChep) = LuuKT(iZ)
Next iZ
End If
ReDim LuuKT(lRow): bDem = 1
LoaiOng = Left(Cells(iJ, 1), ViTri - 1)
LuuKT(1) = Mid(Cells(iJ, 1), ViTri + 1, 6)
Else
bDem = 1 + bDem
LuuKT(bDem) = Mid(Cells(iJ, 1), ViTri + 1, 6)
End If
Next iJ
[b]
End Sub
[/b]
bạn doitrai có hỏi mình thêm về điều này.
doi_trai_co_don đã viết:
Function Dodai(Phi As String, MangOng As Range, MangDai As Range, So As Integer) As Integer
On Error Resume Next
Dim i As Integer, i1 As Integer
Dim Temp As String
If MangOng.Rows.Count <> MangDai.Rows.Count Then Exit Function
If MangOng.Rows.Count = 0 Then Exit Function
If MangOng.Columns.Count <> 1 Or MangDai.Columns.Count <> 1 Then Exit Function
If WorksheetFunction.CountIf(MangOng, Phi & "*") < So Then Exit Function
For i = 1 To MangOng.Rows.Count
If Left$(MangOng(i), 2) = Phi Then
i1 = i1 + 1
If i1 = So Then
Dodai = MangDai(i)
Exit For
End If: End If: Next
End Function
