Đánh số thứ tự không liên tục???

[danhthang]

Trong bảng tính của em có một cột chứa các dữ liệu nhưng không liên tục (ô có dữ liệu, ô trắng).
Ở cột bên trái em muốn đánh số thứ tự tương ứng với các ô trong cột bên phải (1, 2, 3,..)thì làm thế nào? (Tương ứng với các ô trắng cột bên phải thì bỏ qua không đánh thứ tự ở cột bên trái, và em không thể đánh bằng thủ công được vì cột bên phải của em rất dài).
Mong các cao thủ chỉ giúp em vơi!

 

[dmtdmtbb]

- Cho file vd để tiện làm việc nha bạn !!!
- Cái này không khó tuy nhiên mình cần biết dòng trống bao nhiêu để viết code cho dể !!!

 

[Trần Văn Bình]

Tại cột A1 =IF(B1<>"",COUNTA(B$1:B1),"")

 

[Trần Văn Bình]

http://www.giaiphapexcel.com/forum/showthread.php?p=20970

 

[ngvanho]

đánh Số Thứ Tự

Bạn Dùng Công Thức ở ô Muốn đánh Số Thứ Tự Và Cột Dử Liệu Là B
=if($b1<>"",counta($b$1:$b1),"")

 

[SA_DQ]

Bằng VBA (để thêm tham khảo!)

Bạn tham khảo bài 5 trong trang trích dẫn sau
http://giaiphapexcel.com/forum/showthread.php?p=23942#post23942

Option Explicit[b]
Sub STTu()[/b]
 Dim lLastRow As Long, iJ As Long, lStt As Long
 lLastRow = Range("B65432").End(xlUp).Row
 Application.ScreenUpdating = False
 For iJ = 2 To lLastRow
    Range("B" & iJ).Select
    With Selection
        If .Value <> "" Then
            If iJ = 2 Then lStt = 1 Else lStt = 1 + lStt
            .Offset(, -1) = lStt
        End If
    End With
 Next iJ[b]
End Sub[/b]

 

[HuuThanh]

Đánh số thứ tự!!

Bạn tham khảo bài 5 trong trang trích dẫn sau
http://giaiphapexcel.com/forum/showthread.php?p=23942#post23942

Option Explicit
[B]Sub STTu()[/B]
 Dim lLastRow As Long, iJ As Long, lStt As Long
 lLastRow = Range("B65432").End(xlUp).Row
 Application.ScreenUpdating = False
 For iJ = 2 To lLastRow
    Range("B" & iJ).Select
    With Selection
        If .Value <> "" Then
            If iJ = 2 Then lStt = 1 Else lStt = 1 + lStt
            .Offset(, -1) = lStt
        End If
    End With
 Next iJ
[B]End Sub[/B]

Bác xem giúp cho cháu một chút với. trong đoạn mã này chương trình sẽ tự đánh số thứ tự vào trong cột A. Bác có thể chỉnh lại một chút để chương trình cho phép chọn cột cần đánh số thứ tự và cột điều kiện tham chiếu được không ạ!
Cháu cảm ơn bác ạ !!!

 

[hungnm_ta]

Chào cả nhà;
Công thức IF(B1<>"",counta($B$1:B1),"") mới chỉ đúng khi trong ô B1 hoàn toàn không có dữ liệu hoặc công thức. Nếu trong ô B1 của em chứa công thức và kết quả là Blank thì để đánh số liên tục giữa các dòng không liên tục thì làm như thế nào. Cảm ơn cả nhà giúp đỡ nha

 

[tedaynui]

Chào cả nhà;
Công thức IF(B1<>"",counta($B$1:B1),"") mới chỉ đúng khi trong ô B1 hoàn toàn không có dữ liệu hoặc công thức. Nếu trong ô B1 của em chứa công thức và kết quả là Blank thì để đánh số liên tục giữa các dòng không liên tục thì làm như thế nào. Cảm ơn cả nhà giúp đỡ nha

Vậy bạn linh động chỉnh công thức lại tí :
IF(Len(B1)>0,CountA($B$1:B1),"")

TDN

 

[hong gam]

bạn thay counta bằng max
Ví dụ bạn muốn đánh số thứ tự từ A2 thì như sau:
A2=if($B2<>"",max($b$1:$b1)+1,"")

 

[tedaynui]

bạn thay counta bằng max
Ví dụ bạn muốn đánh số thứ tự từ A2 thì như sau:
A2=if($B2<>"",max($b$1:$b1)+1,"")

Như vầy thì cũng có khác gì IF(B1<>"",counta($B$1:B1),"") đâu ta ?
Vấn đề ở chỗ B1<>"" đó !!!

TDN

 

[hong gam]

sorry, đúng ra là(.....,max($A$1:A1)+1,"") chứ không phải $B$1:B1.
em thử được mà, dù ở cột B chứa công hứ hay rỗng.
em vẫn áp dụng như vậy để làm

 

[hungnm_ta]

Chào bác Tedaynui và honggam. Cả hai cách các bác giúp em đều không OK.
Công thức của bác Tedaynui vẫn ngầm đọc cả những ô có công thức:
Vd: STT Công thức
Cthức, kết quả blank
Cthức, kết quả blank
3 Kế quả là dãy ký tự
Cthức, kết quả blank
5 Kế quả là dãy ký tự
Công thức của bác honggam cho số thứ tự toàn 1
Vd: STT Công thức
Cthức, kết quả blank
Cthức, kết quả blank
1 Kế quả là dãy ký tự
Cthức, kết quả blank
1 Kế quả là dãy ký tự

Vậy hai bác xem có cách nào khác giúp em không nhé.
Thank

 

[hoangdanh282vn]

Chào bác Tedaynui và honggam. Cả hai cách các bác giúp em đều không OK.
Vậy hai bác xem có cách nào khác giúp em không nhé.
Thank

Bạn xem thử VD này nha

 

[tedaynui]

Chào bác Tedaynui và honggam. Cả hai cách các bác giúp em đều không OK.

Vậy bạn thử dùng công thức sau, mình thấy hơi "chuối" tí nhưng dùng tạm xem sao :
=IF(LEN(B1)>0,SUMPRODUCT(--(LEN($B$1:B1)>0)),"")

TDN

 

[hungnm_ta]

@ Chao bac hoangdanh. TH của em nó còn có Công thức ở cột ma như trong ví dụng của bác cơ. Công thức cho KQ Blank. Nên không dùng được công thức như của bác, thế mới đau em chứ.
Bác có cách khác hướng dẫn em với

@ Gui Bac tedaynui. Van khong OK bac ah, nó cho kết quả toàn bằng không thôi.
Chẳng lẽ em sẽ phải ngồi điền bẳng tay ah. Em đã thử nhiều cách lắm rồi nhưng vấn không được. Chỉ còn mỗi VB là em chưa dùng thôi, mà cái đó em lại không biết.
Các bác ủng hộ giúp em đi. Da ta của em nó nặng như quả tạ ấy, nếu không em Port lên nhờ các bác thì hay hơn.
Cảm ơn các bác nhé. Có lẽ em đành ngồi gõ tay thôi.

 

[tedaynui]

Chao bac hoangdanh. TH của em nó còn có Công thức ở cột ma như trong ví dụng của bác cơ. Công thức cho KQ Blank. Nên không dùng được công thức như của bác, thế mới đau em chứ.
Bác có cách khác hướng dẫn em với

Cách của Hoangdanh là Ok rồi, bạn test kỹ lại file của bạn xem

Gui Bac tedaynui. Van khong OK bac ah, nó cho kết quả toàn bằng không thôi.

Cách của mình đã test kĩ rồi, thấy Ok mà nhưng dùng cách Hoangdanh hay hơn.

TDN

 

[hungnm_ta]

Em gửi các bác ví dụ trong bảng tính. Các bác giúp em vụ này với nha
Thank, thank rất nhiều.

 

[hong gam]

Ôi trời ơi, nếu vậy bạn đưa file lên đi, mình ghép công thức vào cho. cách của mình cũng giống như cách của bác hoangdanh282vn. mình vẫn làm mà. Cách này mình học của cac bác trên GPE. Bạn xem file.

Chẳng lẽ em sẽ phải ngồi điền bẳng tay ah. Em đã thử nhiều cách lắm rồi nhưng vấn không được. Chỉ còn mỗi VB là em chưa dùng thôi, mà cái đó em lại không biết.
Các bác ủng hộ giúp em đi. Da ta của em nó nặng như quả tạ ấy, nếu không em Port lên nhờ các bác thì hay hơn.
Cảm ơn các bác nhé. Có lẽ em đành ngồi gõ tay thôi.

Bác tedaynui nói đúng đó. Bạn kiểm tra công thức bạn gõ vào như thế nào thôi. cái này đơn giản đâu phải sử dụng VB gì gì đó. và ai lại phải ngồi gõ tay khi file quá lớn như thế, đôi khi bị lẫn do nhìn không kỹ thì chết. nếu file lớn, bạn cắt ra 1 khúc nhỏ thôi, chỉ cần vài dòng, 1 hoặc 2 sheet, mọi người ghép công thức vào rồi bạn copy lại file gốc sẽ thấy.
Bạn xem file trên mình gửi, mình cũng ghép công thức trong cột TT đó, vậy mà cột số thứ tự nó vẫn ra ok đấy thây. vài lời chia sẻ, ráng cố lên nghen. đừng ngại.

 

[hungnm_ta]

Tôi đưa file lên các bác giúp tôi nhé.