Xin các thầy chỉ giúp em với. Em cần tính khoảng cách xuất hiện giữa các hàng.

[tst12346]

E có 1 bảng như hình. Em muốn tính khoảng cách xuất hiện giữa các ô chứa số 1. Tức là a2 =1 đến b6=1 vậy là cách nhau 3 hàng. Từ b6 đến c8= 1 vậy là cách nhau 1 hàng. Nếu em nhập tiếp mà xuất hiện 1 thì sẽ tự động trừ hàng gần nhất xuất hiện 1. Em cảm ơn ạ.

 

[hoangtuaotrang_hp_vn]

E có 1 bảng như hình. Em muốn tính khoảng cách xuất hiện giữa các ô chứa số 1. Tức là a2 =1 đến b6=1 vậy là cách nhau 3 hàng. Từ b6 đến c8= 1 vậy là cách nhau 1 hàng. Nếu em nhập tiếp mà xuất hiện 1 thì sẽ tự động trừ hàng gần nhất xuất hiện 1. Em cảm ơn ạ.

Tham gia từ 2008 mà cái cơ bản cũng sai:
1. Tiêu đề bài viết chung chung
2. Không upload file lên để tiện hỗ trợ
3. Giờ công cụ chụp màn hình thiếu gì mà phải chụp chất lượng kém thế kia

 

[tst12346]

Dạ tham gia lâu rồi nhưng hôm nay em mới bị bắt làm tới excel mà lại khó quá. File ảnh em up lên là minh hoạ cho câu hỏi em cần giúp thôi chứ em chưa làm dc j ạ.

 

[hoangtuaotrang_hp_vn]

Dạ tham gia lâu rồi nhưng hôm nay em mới bị bắt làm tới excel mà lại khó quá. File ảnh em up lên là minh hoạ cho câu hỏi em cần giúp thôi chứ em chưa làm dc j ạ.

Trong lúc chờ giải pháp ưu việt, bạn dùng tạm cách củ chuối này:
Dùng cột phụ E:

E1=IF(COUNTIF(A1:C1,1)>0,1,0)

kéo xuống

Cột G để đếm:

G1=IFERROR(SMALL(IF($E$1:$E$15=1, MATCH(ROW($E$1:$E$15), ROW($E$1:$E$15)), ""), ROW(A1)+1)-SMALL(IF($E$1:$E$15=1, MATCH(ROW($E$1:$E$15), ROW($E$1:$E$15)), ""), ROW(A1))-1,"")

ấn Ctrl+Shift+Enter
kéo xuống

 

[SA_DQ]

Nếu bảng dữ liệu như phần bên trái của ảnh, thì kết quả tìm ra các dòng chứa số 1 là phần bên phải (Hình)

0	0	0
1	0	0								Tìm Ra Dòng
0	0	0								2
0	0	0								6
0	0	0								8
0	1	0	2							9
0	0	0								13
0	0	1
1		0
0	0	0
0	0	0
0	0	0
	0	1

Nếu ta chuyển con số 2 thành số 1 thì kết quả sẽ là

0	0	0
1	0	0								Tìm Ra Dòng
0	0	0								2
0	0	0								6
0	0	0								6
0	1	0	1							8
0	0	0								9
0	0	1								13
1		0
0	0	0
0	0	0
0	0	0
	0	1

Sub TimKhoangCach()
 Dim Rng As Range, sRng As Range
 Dim MyAdd As String:               Dim W As Long
 
 Set Rng = [B2].CurrentRegion
 W = Rng.Rows.Count + Rng.Columns.Count
 ReDim Arr(1 To W, 1 To 1)
 [J2].Resize(W, 3).Value = ""
 Set sRng = Rng.Find(1, , xlFormulas, xlWhole)
 W = 1:                         Arr(W, 1) = "Tìm Ra Dòng"
 If sRng Is Nothing Then
 Else
    MyAdd = sRng.Address
    Do
        W = W + 1:                  Arr(W, 1) = sRng.Row
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
 If W Then
    [k2].Resize(W).Value = Arr()
 End If
End Sub

 

[tst12346]

Dạ cảm ơn các thầy để em thử

 

[LmoovoenX]

Có thể thử nhé bạn

=SUM(SMALL(IF(SUBTOTAL(9;OFFSET($A$1:$C$1;ROW($A$1:$A$13)-1;0))=1;ROW($A$1:$A$13);"");ROW(A1:A2))*{-1;1})-1

Ctrl shift enter

 

[Nhattanktnn]

E có 1 bảng như hình. Em muốn tính khoảng cách xuất hiện giữa các ô chứa số 1. Tức là a2 =1 đến b6=1 vậy là cách nhau 3 hàng. Từ b6 đến c8= 1 vậy là cách nhau 1 hàng. Nếu em nhập tiếp mà xuất hiện 1 thì sẽ tự động trừ hàng gần nhất xuất hiện 1. Em cảm ơn ạ.

Mượn file ở bài #4, bài này khá hợp lý khi dùng phép nhân ma trận:

=SUM(AGGREGATE(15,6,MMULT($A$1:$C$13,{1;1;1})^0*ROW($A$1:$A$13),{0,1}+ROW(A1))*{-1,1})-1