Đến nội dung


Hình ảnh
- - - - -

Đánh số thứ tự tăng dần cho ô có giá trị giống nhau ?


  • Please log in to reply
1 reply to this topic

#1 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 14 August 2010 - 09:55 AM

E đang có 1 bài toán về Excel như thế này mà hiện nay vẫn chưa nghĩ ra cách giải: Giả sử có ô A1, A3, A8, Ai, Aj có giá trị ở đó là 0. yêu cầu là đánh số thứ tự tăng dần vào cộtB như sau: Cứ ô ở phía trên có giá trị 0 là 1 thì ô ở dưới tương ứng có giá trị là 2, 3, 4 , .... Tức là sẽ được đánh như sau: ô B1=1, B3=2, B8=3... Các ô B tương ứng với ô A ko có giá trị 0 thì bỏ trống(ví dụ B2,B4,B5,B6... để trống). Mong các cao thủ giúp đỡ !
  • 0
Hoàng Giang

#2 hoa35ktxd

hoa35ktxd

    biết lệnh move

  • Members
  • PipPipPip
  • 125 Bài viết
Điểm đánh giá: 38 (tàm tạm)

Đã gửi 17 August 2010 - 10:22 AM

Nếu trong cột A chứa các dữ liệu liên tục (không có ô trống) thì bạn làm như sau
Sub DemSo0()
Dim I As Long, J As Long
I = 1: J = 1
While Cells(I, 1).Value <> ""
If Cells(I, 1).Value = "0" Then
Cells(I, 2).Value = J
J = J + 1
End If
I = I + 1
Wend
End Sub
Còn nếu dữ liệu trong cột A rời rạc thì sử dụng mã sau:
Sub DemSo0()
Dim I As Long, J As Long
J = 1
For I = 1 To 65536
If Cells(I, 1).Value = "0" Then
Cells(I, 2).Value = J
J = J + 1
End If
Next
End Sub

  • 0