Hỏi chèn hàng có điều kiện

[khoa289]

Mình muốn khi chèn hàng thì một số hàng trong Excel tự động gộp 1 hàng thành 1 hàng, số còn lại thì không.
Khi chèn hàng thì có câu điều kiện kèm câu điều kiện tự động(Đính kèm file).
Mong nhận được sự giúp đỡ của mọi người.Thanks.

 

[haonlh]

Mình chịu đó. Ô B13 có câu

Mình muốn khi Chèn hàng thì chỉ các cột từ A đến F sẽ tự động gộp 2 hàng thành 1 hàng, còn từ G đến cột cuối cùng thì không gộp.

Sao muốn chèn hàng mà lại gộp từ A đến F, còn G không gộp.
Chèn hàng và gộp chắc là không có gì liên quan. Bạn xem lại câu hỏi

 

[khoa289]

Mình muốn khi chèn hàng thì 3 hàng sẽ tự động gộp lại. Bạn xem file đính kèm này sẽ hiểu ý định của mình

 

[sealand]

1/Yêu cầu của bạn điều giữ nguyên bảng 2 không hợp lý, nếu để dòng nhỏ thì bảng 1 không đọc được, mà dãn dòng thì bảng 2 thật vô lý.
2/Trong sheet Cut Row nhấn chuột phải rồi chọn Menu SEALAND để thử.

Sub Cutdon()
Dim dg, Ct
Dim Cl2 As Range
dg = 12
With Sheet2.Rows("11:65536")
.RowHeight = 21
.MergeCells = False
End With
Do
Set Cl2 = Sheet2.Cells(dg, 1).End(xlDown)
If Cl2.Row = 65536 Then Exit Do
Cl2.Resize(1, 24).Cut Sheet2.Cells(dg, 1)
dg = dg + 1
Loop
Sheet2.Range("Z12:BV12").Copy
Sheet2.Range("Z12:BV" & dg ).PasteSpecial Paste:=xlPasteFormats
Sheet2.Range("A" & dg + 1 & ": BV65536").Clear
With Sheet2.Cells(dg, 1).Resize(, 24).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
End With
With Sheet2.Cells(dg, "Z").Resize(, 49).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
End With
End Sub

Trong bài có sử dụng Code tạo Menu POPUP của Ndu. Mong bạn cho phép

 

[khoa289]

Cám ơn bạn. Nhưng Nếu mình muốn so sánh tiến độ thi công giữa kế hoạch và thực tế như file đính kèm thì làm như cách bạn sẽ không so sánh được. Vì thế mình mới tạo file như vậy.Có cách nào để tạo file như mình đã hỏi không.