Copy cộng dồn cột (1 người xem)

[ngoctruong1421]

Chào anh chị. Cho em hỏi:
Copy cộng dồn thì mình phải làm như thế nào vậy để được kết quả này? Anh chị giúp em với. Cám ơn anh c

Hiện tại khi kéo cột K xuống nó ra kết quả I5, I11....

 

[Hoàng Tuấn 868]

Chào anh chị. Cho em hỏi:
Copy cộng dồn thì mình phải làm như thế nào vậy để được kết quả này? Anh chị giúp em với. Cám ơn anh c
Hiện tại khi kéo cột K xuống nó ra kết quả I5, I11....
View attachment 264096View attachment 264097

Bạn đưa file dữ liệu lên xem cụ thể thế nào.

 

[ngoctruong1421]

File đây ạ. Nó mới chỉ là 1 số liệu nhỏ thôi.

 

[Hoàng Nhật Phương]

File đây ạ. Nó mới chỉ là 1 số liệu nhỏ thôi.

Trong khi chờ đợi cách làm khác, bạn thử cái này xem:

Option Explicit
Sub timso()
    Dim dulieu(), ketqua(), i As Long, k As Long, so As Double
    dulieu = Sheet1.Range("I2:I100").Value
    For i = LBound(dulieu, 1) To UBound(dulieu, 1)
        If IsNumeric(dulieu(i, 1)) Then
            If i < UBound(dulieu, 1) Then
                If IsNumeric(dulieu(i + 1, 1)) Then
                    k = k + 1
                    dulieu(k, 1) = dulieu(i, 1)
                End If
            End If
        End If
    Next i
    Sheet1.Range("K2").Resize(100).ClearContents
    If k Then Sheet1.Range("K2").Resize(k).Value = dulieu
End Sub

 

[Hoàng Tuấn 868]

File đây ạ. Nó mới chỉ là 1 số liệu nhỏ thôi.

Bạn xem thử, không biết có đúng ý không.

 

[Phan Thế Hiệp]

File đây ạ. Nó mới chỉ là 1 số liệu nhỏ thôi.

Thử:

K2=IFERROR(INDEX($I$2:$I$40,AGGREGATE(15,6,ROW($1:$100)/(N(+$I$2:$I$40)>0)/($I$2:$I$40<>4020),ROWS($1:1))),"")

Enter, fill xuống.

Thân

 

[Phuocam]

K2 =INDEX(I:I,ROW(I1)*6-4)

 

[concogia]

Một công thức khác ở [K2]
=IF(ROW()=2,I2,OFFSET($I$2,(ROW(A1)-1)*6,0))
Kéo xuống
Thân

 

[Phan Thế Hiệp]

Trăm hoa đua nở

Vầy cho gọn:
K2=INDIRECT(L2)

Khà khà khà
Chúc anh em ngày vui.

 

[concogia]

Trăm hoa đua nở

Vầy cho gọn:
K2=INDIRECT(L2)

Khà khà khà
Chúc anh em ngày vui.

Công nhận công thức này ngắn và....tầm bậy vô cùng. Cột [L] là cột chủ "thớt" thuyết minh cho người giúp hiểu đề bài thôi mà. Híc
Thân

 

[Phan Thế Hiệp]

"Tầm bậy" mới dzui với anh em trong lúc anh em đang bị buộc nghỉ "hiu" tại gia, chứ anh!

Chỉ cầu mong anh em bình an và gặp nhiều may mắn trong mùa khó khăn này.

 

[ngoctruong1421]

Bài toán của em đã được giải quyết, cám ơn các anh chị.