Từ một cột dữ liệu cho sẵn, làm sao để excel tự thêm dữ liệu sao cho thoả điều kiện (1 người xem)

[nghiank09]

Em chào mọi người,
Em đang gặp một vấn đề, từ một cột dữ liệu cho sẵn, em muốn excel tự thêm vào cột đó một số ô dữ liệu (dữ liệu giống ô cuối cùng của cột) sao cho tổng số ô là bội của 8. Ví dụ như hình sau: ban đầu là 9 ô, làm cách để để cột này tự động thêm 7 ô nữa (dữ liệu như ô số 9) để tổng số ô là 16, bội của 8

.
Mong mọi người giúp đỡ. Thanks all.

 

[HieuCD]

chạy 1 trong 2 code sau, kết quả hơi khác 1 chút

Sub Boi8()
Dim arr, i As Integer
    arr = Range("A2:A" & Range("A2").End(xlDown).Row)
    Range("C2").Resize(UBound(arr)) = arr
    For i = 1 To 8 * ((Int(UBound(arr) / 8) - ((UBound(arr) Mod 8) > 0)))
        If i <= UBound(arr) Then
            Range("c" & i + 1) = arr(i, 1)
        Else
            Range("c" & i + 1) = Range("c" & i)
        End If
    Next
End Sub


Sub Boi8_8()
Dim arr, i As Integer
    arr = Range("A2:A" & Range("A2").End(xlDown).Row)
    Range("C2").Resize(UBound(arr)) = arr
    For i = 1 To 8 * (Int(UBound(arr) / 8) + 1)
        If i <= UBound(arr) Then
            Range("c" & i + 1) = arr(i, 1)
        Else
            Range("c" & i + 1) = Range("c" & i)
        End If
    Next
End Sub

 

[haonlh]

Kg biết bày ra như vậy để làm gì????

Nếu ban đầu có 9 ô thì thêm 7 ô nữa để số ô là bội cua 8

Thế
Nếu ban đầu có 7 ô thì thêm 1 ô nữa để số ô là bội của 8 (đúng kg?)

Và
Nếu ban đầu có 8 ô thì kg thêm ô nào để số ô là bội của 8 (đúng kg?)

hay
Nếu ban đầu có 8 ô thì thêm 8 ô nữa để số ô là bội của 8 (đúng kg?)

 

[nghiank09]

Nếu ban đầu có 7 ô thì thêm 1 ô nữa để số ô là bội của 8 (đúng )
Nếu ban đầu có 8 ô thì kg thêm ô nào để số ô là bội của 8 (đúng)
Nếu ban đầu có 8 ô thì thêm 8 ô nữa để số ô là bội của 8 (cũng đúng nhưng không cần thiết)
Vấn đề này mình gặp trong công việc của mình, nếu nói rõ ra thì rất dài dòng nên mình đã tóm gọn lại như vậy. Cám ơn bạn đã đọc bài.