đánh số thứ tự

[thuyyeu99]

nhờ các anh hướng dẫn cho em có cách nào dánh Số thứ tự vào các ô trong sheet bị trộn merge and center.

 

[hoangdanh282vn]

nhờ các anh hướng dẫn cho em có cách nào dánh Số thứ tự vào các ô trong sheet bị trộn merge and center.

Tại dòng 1:1 Insert thêm cột tiêu đề
Tại ô A2 :

=IF(AND(B2<>"",LEFT(B2,2)<>"LÔ"),MAX($A$1:A1)+1,"")

Copy ô A2, Chon vùng A2:A309, PasteSpecial\Formula\ok

 

[cop_kh]

=IF(AND(B2<>"",LEFT(B2,2)<>"LÔ"),MAX($A$1:A1)+1,"")

Font VNI Danh ơi, nên sửa vầy mới đúng chứ nhỉ: LEFT(B2,3)<>"LOÂ".

 

[boyxin]

nhờ các anh hướng dẫn cho em có cách nào dánh Số thứ tự vào các ô trong sheet bị trộn merge and center.

Bạn dùng đoạn code này xem được không

Sub Stt_Merge()
Dim clls As Range
Set Rng = Range([B1], [B65535].End(xlUp))
Rng.Offset(, -1).ClearContents
For Each clls In Rng
    If Len(clls) > 10 Then clls.Offset(, -1) = _
    WorksheetFunction.Max(Rng.Resize(clls.Row, 1).Offset(, -1)) + 1
Next
End Sub

 

[hoa35ktxd]

Cùng 1 kết quả.

Sub ChenSo()
    Dim I As Long, J As Long
    J = 1
    For I = 1 To [B65536].End(xlUp).Row
       If Cells(I, 2).Value <> "" And Cells(I, 2).Font.Bold = False Then
            Cells(I, 1).Value = J
            J = J + 1
       End If
    Next
End Sub

 

[ndu96081631]

Tôi có thể giải quyết mà không cần dùng vòng lập For ---> AutoFilter kết hợp với SUBTOTAL là xong!

Option Explicit
Sub STT()
  With Range([A1], [B65536].End(xlUp))
    .AutoFilter 2, "<>", 1, "<>LOÂ*"
    With .Resize(, 1).SpecialCells(12)
      .FormulaR1C1 = "=SUBTOTAL(3,R1C2:RC[1])"
    End With
    Application.Calculation = -4135
    .AutoFilter
    .Resize(, 1).Copy: .Resize(, 1).PasteSpecial 3
  End With
  Application.Calculation = -4105
End Sub

Bảo đảm nhanh thần tốc
Xin các bạn cải tiến thêm sao cho có thể bỏ đoạn Application.Calculation
???
Với tác giả: File này lý ra chỉ có vài chục KB, bạn làm sao mà để nó thành 17MB thế ---> Chú ý dọn dẹp sạch sẽ dử liệu, chứ file nào cũng to "bành ky" thế thì "nặng nề" lắm

 

[khoa_pr]

Chào bạn Hoa35kt
Đoạn Code đánh STT của bạn rất hay và ngắn gọn, dễ hiểu. Xin cám ơn bạn. tuy nhiên tuy cũng có thắc mắc như sau: Với đoạn code trên, làm sao để khi nhập nội dung vào cell Họ và tên (Ví dụ B2:B10) thì cột STT từ A2:A10 cũng tự động hiển thị số thừ tự. Khi xóa tên một người ở cell B3 thì A3 cũng tự mất, A4 tự động chuyển thành số 3. nếu xóa hết họ và tên từ B2:B10 thì các số TT cũng tự xóa theo.
Cám ơn bạn.

 

[vodanhtieutot]

cho em hoi ty the code kiec la j vay!! nghia la minh danh doan code do' vao dia chi o la se duoc dieu minh muon hu!! em vua vao nghe nen ko biet do lam!! mong anh em chi dum chut'! hj

 

[dinhhung0910]

To: Khoa pr

Cái này chỉ nần dùng công thức, không cần dùng code: