CT tìm vị trí đầu và cuối >0!

[ThuNghi]

Tôi có bài tóan như sau:
A-- B
1---0
2---0
3---0
4---1
5---0
6---1
7---0

Xin hỏi có CT tìm vị trí đầu và cuối >0.. Hay là 1 UDF cũng OK nhưng mà không dùng for...next
Trong ví dụ trên là
Vị trí đầu là 4
Vị trí cuối là 6
Tôi tính dùng {min(if(B1:B7>0,A1:A7,1000)} nhưng mà đưa vào Code thì phải mất 1 cell trung gian.
Xin hỏi còn có ct khác.
Cám ơn!

 

[cadafi]

Tôi có bài tóan như sau:
A-- B
1---0
2---0
3---0
4---1
5---0
6---1
7---0

Xin hỏi có CT tìm vị trí đầu và cuối >0.. Hay là 1 UDF cũng OK nhưng mà không dùng for...next
Trong ví dụ trên là
Vị trí đầu là 4
Vị trí cuối là 6
Tôi tính dùng {min(if(B1:B7>0,A1:A7,1000)} nhưng mà đưa vào Code thì phải mất 1 cell trung gian.
Xin hỏi còn có ct khác.
Cám ơn!

Bạn xem file đính kèm nhé.
Lưu ý: công thức chỉ đúng khi thỏa mãn 2 điều kiện
1. Cột A là số thứ tự 1,2,3,4,5,6,7......n
2. Cột B chỉ có 2 giá trị là 0 và số m>0.

 

[anhtuan1066]

Mất 1 cell trung gian là sao nhỉ?
Như tôi đặt 3 name:

Data =OFFSET(Sheet1!$A$1,,,COUNTA(Sheet1!$A:$A))
LN =MAX(IF(OFFSET(Data,,1)>0,Data,""))
NN =MIN(IF(OFFSET(Data,,1)>0,Data,""))

Ở trong code tôi viết:

Sub Test()
  Ln = Evaluate("LN")
  Nn = Evaluate("NN")
...............
End Sub

Vậy là xong! Đâu có cell phụ nào ??? Ko hiểu ThuNghi có ý gì khác ko nhỉ?
ANH TUẤN