Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
hhhhgggg

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

Các bài được khuyến nghị

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 đỡ !

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×