Public Sub Data_STT(ws As Worksheet, Dong_BD As Long, cot_STT As String, cot_DongCuoi As String) 2 'Khai báo các biến sử dụng 3 Dim DongCuoi As Long 4 DongCuoi = ws.Range(cot_DongCuoi & Rows.Count).End(xlUp).Row 5 Dim i As Long 6 i = 1 7 Dim o_STT As Range, VungSTT As Range 8 Set VungSTT = Range(cot_STT & Dong_BD & ":" & cot_STT & DongCuoi) 9 For Each o_STT In VungSTT 10 o_STT .Value = i 11 i = i + 1 12 Next o_STT 13 End Sub
Chào bạn! Bạn vui lòng đẩy file lên để GV có thể xem xét kỹ hơn nhé