Code vba thêm số thứ tự vào bên trái tên hàng

[Covid19pro]

Chào đại gia đình GPE !
Em cần thêm thêm số thứ tự vào bên trái của vùng B3:B15 thì dùng code gì để chuyển nhanh nhất.
Lưu ý: nếu ô Nào trống trống thì bỏ qua
Xin chúc đại gia đình năm mới vui vẻ hạnh phúc sức khỏe

 

[Phuocam]

Chào đại gia đình GPE !
Em cần thêm thêm số thứ tự vào bên trái của vùng B3:B15 thì dùng code gì để chuyển nhanh nhất.
Lưu ý: nếu ô Nào trống trống thì bỏ qua
Xin chúc đại gia đình năm mới vui vẻ hạnh phúc sức khỏe

Công thức được không bạn?

 

[SA_DQ]

Sub ThemSoTT()
 Dim J As Long, Rws As Long, STT As Long
 
 Rws = [B65500].End(xlUp).Row
 For J = 3 To Rws
    If Cells(J, "B").Value <> Space(0) Then
        STT = STT + 1
        Cells(J, "B").Value = Str(STT) & ". " & Cells(J, "B").Value
    End If
 Next J
End Sub

 

[Covid19pro]

Sub ThemSoTT()
Dim J As Long, Rws As Long, STT As Long

Rws = [B65500].End(xlUp).Row
For J = 3 To Rws
    If Cells(J, "B").Value <> Space(0) Then
        STT = STT + 1
        Cells(J, "B").Value = Str(STT) & ". " & Cells(J, "B").Value
    End If
Next J
End Sub

cảm ơn bác. Nhờ bác sửa lại bỏ dấu cách đằng trước ( bên trái ngoài cùng ) nữa thì quá tuyệt vời

Bài đã được tự động gộp: 30/1/21

Công thức được không bạn?

Công thức sao mà làm trên chính vùng mình cần thay đổi được

 

[SA_DQ]

Lúc đó xài hàm CStr(STT) thay vì STR(STT)

 

[Covid19pro]

Sub ThemSoTT()
Dim J As Long, Rws As Long, STT As Long

Rws = [B65500].End(xlUp).Row
For J = 3 To Rws
    If Cells(J, "B").Value <> Space(0) Then
        STT = STT + 1
        Cells(J, "B").Value = Str(STT) & ". " & Cells(J, "B").Value
    End If
Next J
End Sub

Em sửa được rồi. cảm ơn bác

Sub ThemSoTT()
On Error Resume Next
Dim J As Long, Rws As Long, STT As Long
For J = 3 To 100
If Range("b" & J).Value <> "" Then
STT = STT + 1
Range("b" & J).Value = STT & ". " & Range("b" & J).Value
End If
Next J
End Sub

 

[VetMini]

Công thức được không bạn?

Công thức đâu thể thay đổi trị trong cột (đâu thể truy vấn vòng).

Code:
Code cần xét nếu đã có số rồi thì phải xoá số ấy đi trước khi thêm số mới.