Đánh số thứ tự tự động bằng VBA

2 Responses

1. hands says:

   25/02/2023 at 2:41 pm

   Code của bạn là:

   Sub dowhile_SOTT_COT()
   i = 1
   Do While i <= 30
   Cells(i + 1, 1) = i
   i = i + 1
   Loop
   End Sub
   Chỉ cần sửa lại 1 tí:

   Sub dowhile_SOTT_COT()
   i = 1
   Do While i <= 30
   ActiveCell.Offset(i – 1) = i
   i = i + 1
   Loop
   End Sub

   Reply
2. hands says:

   25/02/2023 at 2:43 pm

   các bác cho em hỏi là:
   em có 1 range trong đó có những merge khác nhau và em muốn đánh STT cho range đó thì code sẽ như thế nào ạ.khả năng còn kém em nghĩ mãi mà ko ra.cảm ơn các bác nhiều !

   Bạn thử code như này xem

   Public Sub GPE()
   Dim I As Long
       [C26] = 1
       For I = 27 To 97
           Range("C" & I).Value = Application.Max(Range("C26:C" & I - 1)) + 1
       Next I
   End Sub

   Reply