Đánh Số thứ tự (1 người xem)

[boyxin]

Tình hình là em có dữ liệu ghi chép gia phả trong Word đã Format Numbering dạng 1.1, 1.2, 1.2.1, ... Nay em muốn chuyển dữ liệu sang Excel để tiện cho việc thống kê nhưng gặp khó khăn trong việc tạo Macro hoặc hàm tự tạo đánh số thứ tự (hiện tại em đánh số thứ tự thủ công bằng tay nên hơi ngại)

Rất mong được các ACE quan tâm, giúp đỡ

 

[huuthang_bd]

Tình hình là em có dữ liệu ghi chép gia phả trong Word đã Format Numbering dạng 1.1, 1.2, 1.2.1, ... Nay em muốn chuyển dữ liệu sang Excel để tiện cho việc thống kê nhưng gặp khó khăn trong việc tạo Macro hoặc hàm tự tạo đánh số thứ tự (hiện tại em đánh số thứ tự thủ công bằng tay nên hơi ngại)

Rất mong được các ACE quan tâm, giúp đỡ

Bạn dùng Code này xem sao.

Sub STT()
Dim Data, Arr(), ArrSTT(), i As Long, j As Long, k As Long
Data = [B1:I26].Value
ReDim ArrSTT(1 To UBound(Data, 1) - 1, 1 To 1)
ReDim Arr(1 To UBound(Data, 2))
For i = 2 To UBound(Data, 1)
    For j = 1 To UBound(Data, 2)
        If Data(i, j) <> "" Then
            Arr(j) = Arr(j) + 1
            For k = j + 1 To UBound(Data, 2)
                Arr(k) = 0
            Next
            ArrSTT(i - 1, 1) = Data(1, j)
            For k = 1 To j
                ArrSTT(i - 1, 1) = ArrSTT(i - 1, 1) & "." & Arr(k)
            Next
            GoTo Next_i
        End If
    Next
Next_i:
Next
[A2].Resize(UBound(ArrSTT, 1)).Value = ArrSTT
End Sub

 

[boyxin]

Thật là tuyệt vời.
Xin cảm ơn bác huuthang_bd nhé

 

[Vanke]

Mình muốn tự động đánh số thứ tự phiếu thu như sau: PT1/04, PT2/04, PT3/04. Cho mình hỏi phải thiết lập công thức như thế nào.
Rất mong mọi người giúp đỡ.

 

[VetMini]

Mình muốn tự động đánh số thứ tự phiếu thu như sau: PT1/04, PT2/04, PT3/04. Cho mình hỏi phải thiết lập công thức như thế nào.
Rất mong mọi người giúp đỡ.

Số /04 lấy ở đâu ra?