Option Explicit
Sub Tach2SoDuoi()
Const Ng As String = "-": Dim lRw As Long, Ff As Long
Dim VTr As Byte, Col As Byte: Dim StrC As String
lRw = [B65500].End(xlUp).Row: Application.ScreenUpdating = False
For Ff = 2 To lRw
With Cells(Ff, "B")
StrC = .Value
If IsNumeric(Left(StrC, 1)) Then
StrC = StrC & Ng: Col = 5
Do
VTr = InStr(StrC, Ng)
If VTr < 1 Then
Exit Do
Else
Cells(Ff, Col) = Mid(StrC, VTr - 2, 2)
StrC = Mid(StrC, VTr + 1): Col = Col + 1
End If
Loop
End If
End With
Next Ff
End Sub
bạn dùng công thức nào vậy?như thế thì đúng yêu cầu rùi,nhưng phần tách lấy đầu thì chỉ lấy theo ngày thui.Ví dụ:xem kq ngày nào thì thống kê của ngày đó thui.Chứ tổng hợp hết thế kia nghiên cứu khó quá...hjhjBạn xem file đã đạt yêu cầu chưa? Trong đó, tôi có thêm 1 dòng để thống kê xem có bao nhiêu lần ra các số (sau khi đã xếp vào các vị trí đầu, đuôi.
có công thức nào để lấy được 2 số đuôi của dãy số và sắp xếp chúng theo thứ tự như thế này được ko.
có file đính kèm
cảm ơn ban,như vậy là đúng yêu cầu của mình rùi,nhưng nó có thể làm bằng công thức đc ko?vì mình muốn làm nó ở 1 sheet khác hoàn toàn.Copy cái đó vào file excle khác thì nó có chạy ko vậy?Bạn xem thế này được chưa?
Bạn thích nó ở sheet nào, trình bày theo mẫu thế nào thì bạn phải cho biết từ đầu (đâu là nguồn, đâu là kết quả mong muốn ...), cứ hỏi kiểu này thì những người muốn giúp bạn cũng cảm thấy mệtcảm ơn ban,như vậy là đúng yêu cầu của mình rùi,nhưng nó có thể làm bằng công thức đc ko?vì mình muốn làm nó ở 1 sheet khác hoàn toàn.Copy cái đó vào file excle khác thì nó có chạy ko vậy?