Chèn thêm dòng trắng sau dòng có giá trị xác định (1 người xem)

[foudremars]

Chào các anh chị trên diễn đàn.

Trong file đính kèm, tôi muốn chèn thêm 1 dòng trắng ở sau tất cả các dòng "Chi phí trực tiếp khác (VL+NC+M) x 2%"

Nhờ anh chị giúp đỡ, chỉ cách làm.
Tôi xin cảm ơn. Chúc các anh chị sức khỏe để ngày càng xây dựng GPE phát triển.

 

[HungQuoc49]

Chào các anh chị trên diễn đàn.

Trong file đính kèm, tôi muốn chèn thêm 1 dòng trắng ở sau tất cả các dòng "Chi phí trực tiếp khác (VL+NC+M) x 2%"

Nhờ anh chị giúp đỡ, chỉ cách làm.
Tôi xin cảm ơn. Chúc các anh chị sức khỏe để ngày càng xây dựng GPE phát triển.

- Lọc ra những dòng bên dưới dòng "Chi phí trực tiếp khác (VL+NC+M) x 2%".
Cụ thể là lọc ra "Cộng chi phí trực tiếp ( VL+NC+M+TT )"
- Chọn toàn bộ vùng vừa lọc
- Nhấn ctrl+G --> chọn special ---> Nhấn Y --->ok
- Nhấn alt +I +R
- Bỏ lọc là ok

 

[foudremars]

- Lọc ra những dòng bên dưới dòng "Chi phí trực tiếp khác (VL+NC+M) x 2%".
Cụ thể là lọc ra "Cộng chi phí trực tiếp ( VL+NC+M+TT )"
- Chọn toàn bộ vùng vừa lọc
- Nhấn ctrl+G --> chọn special ---> Nhấn Y --->ok
- Nhấn alt +I +R
- Bỏ lọc là ok

Trời, đơn giản mà hay quá, cảm ơn bác. Em cứ tưởng phải dùng đến VBA gì gì đấy.

- "Nhấn ctrl+G --> chọn special ---> Nhấn Y --->ok" cái này thì em biết cách khác là nhấn Alt+; nhưng lại không biết nhấn Alt+I+R. Nó có tác dụng gì mà lại chèn được thế?
Em muốn chèn ở dưới dòng lọc cơ nhưng không sao, như thế là xử lý được.

Một lần nữa cảm ơn bác.

 

[HungQuoc49]

Alt+I+R. Nó có tác dụng gì mà lại chèn được thế?

Alt+I+R là lệnh insert rows trong menu insert của excel 2003 đó bạn

 

[phulien1902]

Chào các anh chị trên diễn đàn.

Trong file đính kèm, tôi muốn chèn thêm 1 dòng trắng ở sau tất cả các dòng "Chi phí trực tiếp khác (VL+NC+M) x 2%"

Nhờ anh chị giúp đỡ, chỉ cách làm.
Tôi xin cảm ơn. Chúc các anh chị sức khỏe để ngày càng xây dựng GPE phát triển.

Thêm 1 cách để bạn tham khảo:

Sub AddRows()
    Dim i As Long
    Dim LR As Long
    LR = Sheet1.[c65000].End(xlUp).Row
    Application.ScreenUpdating = False
    For i = LR To 1 Step -1
        With Sheet1.Cells(i, "D")
            If .Value = "T" Then
                .Resize(1).EntireRow.Insert
            End If
        End With
    Next i
    Application.ScreenUpdating = False
End Sub

 

[quanluu]

Trời, đơn giản mà hay quá, cảm ơn bác. Em cứ tưởng phải dùng đến VBA gì gì đấy.

- "Nhấn ctrl+G --> chọn special ---> Nhấn Y --->ok" cái này thì em biết cách khác là nhấn Alt+; nhưng lại không biết nhấn Alt+I+R. Nó có tác dụng gì mà lại chèn được thế?
Em muốn chèn ở dưới dòng lọc cơ nhưng không sao, như thế là xử lý được.

Một lần nữa cảm ơn bác.

thì bạn lọc theo "Cộng chi phí trực tiếp ( VL+NC+M+TT )" rùi làm lại các bước trên thui

 

[foudremars]

Thêm 1 cách để bạn tham khảo:

Sub AddRows()
    Dim i As Long
    Dim LR As Long
    LR = Sheet1.[c65000].End(xlUp).Row
    Application.ScreenUpdating = False
    For i = LR To 1 Step -1
        With Sheet1.Cells(i, "D")
            If .Value = "T" Then
                .Resize(1).EntireRow.Insert
            End If
        End With
    Next i
    Application.ScreenUpdating = False
End Sub

Nhờ bác mở rộng thêm code trên giúp em như sau được không.
Em muốn thêm dòng ở vị trí khác, "Chi phí xây dựng trước thuế (T+C+TL)" chẳng hạn, thì không áp dụng được code của bác.
Có cách nào chèn thêm 1 dòng trắng ở sau những ô có cùng giá trị với ô hiện thời thì tốt quá.
Cảm ơn bác đã quan tâm.

 

[foudremars]

thì bạn lọc theo "Cộng chi phí trực tiếp ( VL+NC+M+TT )" rùi làm lại các bước trên thui

Hì, tất nhiên cái này em biết. Cảm ơn bác.

 

[foudremars]

Alt+I+R là lệnh insert rows trong menu insert của excel 2003 đó bạn

Em làm trên Excel 2016 thì nó khác 1 xíu là nhấn Alt+I rồi Alt+R.
Tổ hợp phím của bác là đúng cái em cần. Cảm ơn bác.

 

[phulien1902]

Nhờ bác mở rộng thêm code trên giúp em như sau được không.
Em muốn thêm dòng ở vị trí khác, "Chi phí xây dựng trước thuế (T+C+TL)" chẳng hạn, thì không áp dụng được code của bác.
Có cách nào chèn thêm 1 dòng trắng ở sau những ô có cùng giá trị với ô hiện thời thì tốt quá.
Cảm ơn bác đã quan tâm.

Code cho 2 điều kiện cùng 1 lúc đây:

Sub AddRows_New()
    Dim i As Long
    Dim LR As Long
    LR = Sheet1.[c65000].End(xlUp).Row
    Application.ScreenUpdating = False
    For i = LR To 1 Step -1
        With Sheet1.Cells(i, "D")
            If .Value = "T" Then
                .Resize(1).EntireRow.Insert
            End If
            If .Value = "G" Then
                Cells(i + 1, "D").Resize(1).EntireRow.Insert
            End If
        End With
    Next i
    Application.ScreenUpdating = False
End Sub

 

[foudremars]

Code cho 2 điều kiện cùng 1 lúc đây:

Sub AddRows_New()
    Dim i As Long
    Dim LR As Long
    LR = Sheet1.[c65000].End(xlUp).Row
    Application.ScreenUpdating = False
    For i = LR To 1 Step -1
        With Sheet1.Cells(i, "D")
            If .Value = "T" Then
                .Resize(1).EntireRow.Insert
            End If
            If .Value = "G" Then
                Cells(i + 1, "D").Resize(1).EntireRow.Insert
            End If
        End With
    Next i
    Application.ScreenUpdating = False
End Sub

Đọc 2 code của bác, em đã có thể tự sửa code để chèn vào bất kỳ vị trí nào mà mình muốn. Cảm ơn bác rất nhiều.