Trợ giúp đánh lại thứ tự những ký tự là số

[GACON_VBA]

Chào các bác, em có chuỗi dữ liệu như file sau. Các bác có thể giúp em đánh lại theo thứ tự tăng dần những ký tự là số được không ạ. Xin cảm ơn và mong sự hỗ trợ từ các bác. (Dữ liệu cột A, mong muốn cột C)

 

[phulien1902]

Chào các bác, em có chuỗi dữ liệu như file sau. Các bác có thể giúp em đánh lại theo thứ tự tăng dần những ký tự là số được không ạ. Xin cảm ơn và mong sự hỗ trợ từ các bác. (Dữ liệu cột A, mong muốn cột C)

Bạn thử:

Sub Test()
    Dim i As Long, LR As Long, k As Integer
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        If IsNumeric(Cells(i, 1)) Then
            k = k + 1
            Cells(i, 3) = k
        Else
            Cells(i, 3) = Cells(i, 1)
        End If
    Next i
End Sub

 

[salam]

Chào các bác, em có chuỗi dữ liệu như file sau. Các bác có thể giúp em đánh lại theo thứ tự tăng dần những ký tự là số được không ạ. Xin cảm ơn và mong sự hỗ trợ từ các bác. (Dữ liệu cột A, mong muốn cột C)

Bạn dùng CT:
=IF(ISNUMBER(A1),SUBTOTAL(102,$A$1:A1),A1)

 

[VetMini]

Tôi biết chủ thớt muốn cốt kiếc cho xịn. Ở đây tôi chỉ mách công thức cho bạn nào có tính "e dè" với cốt kiếc (như tôi).

Ô thứ hai: (C2)
=IF(ISNUMBER($A2),IFERROR(LOOKUP(10^9,$C$1:$C1+1),1),$A2)
Kéo lên, fill cho ô đầu tiên (C1)
Sau đó, kéo xuống, fill cho các ô còn lại.

Chú: Khi fill lên ô đầu tiên, vùng lookup sẽ là $C$1:$C0, tức là sẽ #REF!. Nhưng không sao, vì ta đã có IFERROR để bẫy lỗi.