có thể xem code của e sai ở đâu ko Em muốn đánh số tự động cho cột

https://drive.google.com/file/d/1nP4x...

Chào bạn bạn đang muốn đánh thế này đúng không?

Sub danhsothutu()
   Dim lr As Long, i As Long
   lr = Sheets("DMKH").Range("B" & Rows.Count).End(xlUp).Row
   For i = 1 To lr
        Sheet2.Range("A" & i + 6).Value = "K" & i
   Next i
End Sub

Dạ ko phải thầy ạ ý em là điền tiếp vào cột mã khách hàng. Vì trong cột này có dòng trống chưa đánh số và có những dòng ký hiệu khác ko có chữ K đằng trc.

Mục đích của e là tìm kiếm trong cột B. Nếu có chũ K thì đánh tiếp số thứ tự. Kiểu như đánh số tự động cho phiếu nhập, phiếu xuất ấy mà

Chào bạn bạn thử với dạng code mẫu sau nhé

Sub TangMa
 Application.ScreenUpdating = False
    On Error GoTo THOAT
    SheetName.Activate
    Dim dc&, rng As Range, i&
    Application.GoTo (SheetName.[C1048576].End(3).Offset(1)), True
    dc = SheetName.Range("C" & SheetName.Rows.Count).End(xlUp).Row
    If dc = 1 Then
       SheetName.Range("C3").Value = "NV00001"
    Else
       Set rng = SheetName.Range("C3:C" & dc).Find("NV*", , xlValues, xlPart, xlByRows, xlPrevious)
       If Not rng Is Nothing Then
          SheetName.Range("C" & dc + 1).Value = "NV" & Format(Right(CStr(rng.Value), 5) + 1, "00000")
       Else
          SheetName.Range("C3").Value = "NV00001"
       End If
    End If
    Set rng = Nothing
THOAT:     Exit Sub
End Sub

https://drive.google.com/file/d/1nvOc...

Chào bạn nhiều trường hợp bạn nên để luôn sub để thực hiện nhé, hoặc bạn muốn chuyển thành function thì thay các tham số cần đổi vào và truyền điều kiện nhé.