Đánh số thứ tự cho Cell Merge

[kidszalor1412]

Các bạn có thể giúp mình không? Mình muốn đánh số thứ tự cho các cell được merge như trong sheet này. Mà tìm các bài có liên quan rồi dùng thử code mà không được! Thanks các bạn nhiều nhé.

http://www.mediafire.com/?72dgrf6xsjylvmk

 

[Quang_Hải]

Có thấy file đính kèm đâu???

 

[kidszalor1412]

Xin lỗi thầy, em vừa up lại bằng mediafire ạ, tại ở cơ quan em không xài được winrar và winzip và file cũng tương đối nặng.

 

[Quang_Hải]

Thử thế này xem

Sub STT()
Dim dl, i
dl = Range([a2], [b65536].End(3)).Value
  For i = 1 To UBound(dl)
    If dl(i, 2) <> "" Then dl(i, 1) = i
  Next
[a2].Resize(i - 1, 2) = dl
End Sub

 

[Quang_Hải]

Xin lỗi thầy, em vừa up lại bằng mediafire ạ, tại ở cơ quan em không xài được winrar và winzip và file cũng tương đối nặng.

Không cần gởi 1 file to thế đâu, chỉ cần đủ dữ liệu để người khác hiểu dạng dữ liệu mà bạn đang có là được rồi

 

[kidszalor1412]

Được rồi thầy ạ em cám ơn thầy nhiều nhé!