nhờ anh chị giúp em đánh số thứ tự tự động

[chi ngan nguyen]

nhờ anh chị giúp em đánh số thứ tự tự động

 

[be_09]

NHỜ ANH CHỊ GIÚP EM ĐÁNH SỐ THỨ TỰ TỰ ĐỘNG

Mới tham gia diễn đàn thì cũng nên đọc kỹ nội quy để tránh vi phạm.

 

[snow25]

nhờ anh chị giúp em đánh số thứ tự tự động

Bạn thử cái này.

Sub danhso()
    Dim arr, i As Long, kq(1 To 10000, 1 To 6), a As Long
    With Sheets("sheet2")
         arr = .Range("A1:A4").Value
         arr(3, 1) = Left(arr(3, 1), Len(arr(3, 1)) - 1)
         For i = 1 To 200 Step 2
             kq(a + 1, 1) = arr(1, 1)
             kq(a + 2, 1) = arr(2, 1)
             kq(a + 3, 1) = arr(3, 1) & i
             kq(a + 4, 1) = arr(4, 1)
             kq(a + 1, 6) = arr(1, 1)
             kq(a + 2, 6) = arr(2, 1)
             kq(a + 3, 6) = arr(3, 1) & i + 1
             kq(a + 4, 6) = arr(4, 1)
             a = a + 7
        Next i
        .Range("A1:F1").Resize(a).Value = kq
  End With
        
End Sub

 

[be_09]

nhờ anh chị giúp em đánh số thứ tự tự động

Góp ý cho bạn:
1/ Bạn yêu cầu không khoa học chúc nào cả.
2/ Chỉ nên thiết kế các mẫu trên nằm gọn trong 1 trang sau đó muốn in bao nhiêu là tùy thích.
3/ Chưa biết khi in xong thì bạn có muốn lưu dữ liệu để theo dõi hay không nên tôi không góp ý thêm.