Đánh số thứ tự dòng trong 1 ô của excel

[ndu96081631]

Nhận tiện đây xin các pro chỉ dùm hàm nào đánh số liên tiếp khi các dòng bị hide, nếu được các pro viết dùm đọan code để thực thực hiện. xin chân thành cảm ơn.

Nếu dữ liệu tại cột B của bạn đầy đủ (không có dòng trống nào) thì có thẻ dùng công thức này tại A8:

=SUBTOTAL(103,$B$8:$B8)

 

[Quang_Hải]

Muốn code thì có code đây. Nhớ xoá cột E trước khi chạy code

Anh quanghai ơi em bỏ cột E rồi nhưng code nó báo lỗi anh xem lại giúp em nhe!
 [ATTACH]86829[/ATTACH][/QUOTE]
Tại dòng 2 sửa lại thế này
Dim Arr(), dl, i, j

 

[thomtv]

Tại dòng 2 sửa lại thế này
Dim Arr(), dl, i, j

Em có sửa lại cho nó chạy ở dòng a8, nhưng chỉ chạy được 2 số. Anh ơi sau nó chạy ở 2 cột A và E.(ở cột e8 =1; e9=1) anh xem giúp em nhé, em mới làm quen và tìm hiểu code, nên chưa biết nhiều mong anh chỉ giáo. vừa hỏi trên diễn đàn vừa coi sách của Bác Phan Tự Hướng mong được học hỏi thêm.
View attachment vd.xls

 

[Quang_Hải]

Em có sửa lại cho nó chạy ở dòng a8, nhưng chỉ chạy được 2 số. Anh ơi sau nó chạy ở 2 cột A và E.(ở cột e8 =1; e9=1) anh xem giúp em nhé, em mới làm quen và tìm hiểu code, nên chưa biết nhiều mong anh chỉ giáo. vừa hỏi trên diễn đàn vừa coi sách của Bác Phan Tự Hướng mong được học hỏi thêm.
View attachment 86838

Bạn chạy ra STT rồi copy cột này dán về cột A. Vì dữ liệu của bạn không rõ ràng nên chỉ biết góp ý vậy thôi

 

[Ba Tê]

Em có sửa lại cho nó chạy ở dòng a8, nhưng chỉ chạy được 2 số. Anh ơi sau nó chạy ở 2 cột A và E.(ở cột e8 =1; e9=1) anh xem giúp em nhé, em mới làm quen và tìm hiểu code, nên chưa biết nhiều mong anh chỉ giáo. vừa hỏi trên diễn đàn vừa coi sách của Bác Phan Tự Hướng mong được học hỏi thêm.
View attachment 86838

Thêm một Code nữa cho vui.

Sub GPE()
Application.ScreenUpdating = False
Dim j, Rng As Range, Cll As Range
Set Rng = Range([b8], [b65536].End(3))
Range("A8:A1000").ClearContents
For Each Cll In Rng
   If Cll.EntireRow.Hidden = False Then
        If Cll.Value <> "" Then
            If Not Cll.Value Like "Tieu de*" Then   ''"Thay doi dieu kien nay cho phu hop"
                j = j + 1
                Cll.Offset(, -1).Value = j
            End If
        End If
   End If
Next
Set Rng = Nothing
Application.ScreenUpdating = False
End Sub

 

[giaosucan]

Chào các bác, em đang gặp 1 vấn đề nan giản
E có 1 ô của excel , trong ô có các dòng text (Dùng Alt+Enter để cách dòng)

Line 1
Line 2
Line 3

Em muốn đánh số thứ tự tự động cho các line này (trong 1 ô) kiểu như
1. Line 1
2. Line 2
3. Line 3

Nan giản ở chỗ là cần đánh số thứ tự dòng như trên trong cùng 1 ô.
Các bác có idea gì ko giúp em với
thank các bác nhiều

À đối với bài toán ngược lại
nếu có 1 ô với những line thế náy

1. Line 1
2. Line 2

Làm thế nào để del được kí tự số và dấu "." nhỉ .

Hiện nay e đã làm macro del đc số trong số lượng selected cell rồi, e đang muốn cải tiến del dc số và dấu . luôn

 

[Quang_Hải]

À đối với bài toán ngược lại
nếu có 1 ô với những line thế náy

1. Line 1
2. Line 2

Làm thế nào để del được kí tự số và dấu "." nhỉ .

Hiện nay e đã làm macro del đc số trong số lượng selected cell rồi, e đang muốn cải tiến del dc số và dấu . luôn

Sao cứ lòng vòng hoài vậy ta? Thêm vào, xóa đi...

Public Function xoadaudong(cell As Range) As String
Dim dl, kq, i
dl = Split(cell, ChrW(10))
For i = 0 To UBound(dl)
   kq = kq & Trim(Right(dl(i), Len(dl(i)) - 2)) & ChrW(10)
Next
xoadaudong = Left(kq, Len(kq) - 1)
End Function

 

[concogia]

Sao cứ lòng vòng hoài vậy ta? Thêm vào, xóa đi...

Public Function xoadaudong(cell As Range) As String
Dim dl, kq, i
dl = Split(cell, ChrW(10))
For i = 0 To UBound(dl)
   kq = kq & Trim(Right(dl(i), Len(dl(i)) - 2)) & ChrW(10)
Next
xoadaudong = Left(kq, Len(kq) - 1)
End Function

Nếu số ở đầu dòng lên hàng chục hoặc hàng trăm thì sao hả ....Trời ????
Híc

 

[Quang_Hải]

Nếu số ở đầu dòng lên hàng chục hoặc hàng trăm thì sao hả ....Trời ????
Híc

Em cam đoan là không có thế đâu, nếu có thì em xin hứa sẽ .... viết lại code
Nếu cho thấy dữ liệu thật thì xài Instr(...) tìm khoảng trắng đầu tiên. Em đoán đại như thế