Chèn code lấy số thứ tự.

[LuuAnh980]

Em nhờ các anh chị đọc code và chèn thêm đoạn code rãi số thứ tự cho cột A dùm em ạ.

lrd = sd.Cells(Rows.Count, 2).End(xlUp).Row
If lrd < 7 Then lrd = 6
    If r > 0 Then
        sd.Range("B" & lrd + 1).Resize(r, 8) = md
    End If
thoat:
Next i
lrd = sd.Cells(Rows.Count, 2).End(xlUp).Row

sd.Range("A6:I" & lrd).Borders.LineStyle = True
sd.Range("B6", sd.Range("I" & Rows.Count).End(xlUp)).Sort [B6], xlAscending
sd.Range("A6", & lrd).Value = Stt +1 ' em chèn chổ này mà không được.
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[TongDe]

Thử cách này,

sd.Range("A6", & lrd).Value = "Row() -5"

Sau đó chuyển về value
sd.Range("A6:A" & lr).value = sd.Range("A6:A" & lr).value

 

[LuuAnh980]

Không được anh @TongDe ơi.

 

[VetMini]

Cái từ "không được" của bạn nó rộng quá. Người khác không hiểu nổi nó là:
1. syntax error: VBA đẩy thẳng nó ra
2. run time error có cái gì đó, ví dụ lr mặc định là "", Range("A6:A" & lr) là Range("A6:A"), không chạy tiếp được
3. chạy êm xuôi nhưng không ra kết quả như yêu cầu.

 

[TongDe]

Đưa file lên để test lại....
Có gì đó sai sai ; chỉnh lại = "= Row()-5"