Nhờ giúp đỡ: File xử lý dữ liệu trên Excel (2 người xem)

[phuongc5]

Chào các thành viên!
Mình có file đính kèm, trong đó mình đã ghi rõ yêu cầu.

Rất mong đựoc mọi người giúp đỡ!

Xin chân thành cảm ơn!

 

[ndu96081631]

Thử vầy xem:

Sub Sualai()
  Dim Rng1 As Range, Rng2 As Range
  Set Rng1 = Range(Cells([J1] + 4, "A"), Cells([J1] + 4, "C"))
  Set Rng2 = Range(Cells([J1] + 4, "E"), Cells([J1] + 4, "K"))
  Union(Rng1, Rng2).ClearContents
End Sub

Tôi đoán bạn muốn xóa dòng cuối cùng, đúng không? ---> Nếu thế thì cần gì đến COUNTA nhỉ? ---> Có thể sửa code lại thành kiểu khác đấy!

 

[phuongc5]

Đúng là em muốn xoá dòng cuối cùng. Nhưng không biết cách nên em mới làm thẽ (dân không chuyên và cũng chưa có thời gian để nghiên cứu về code mà)> Nếu mà có cách đơn giản hơn rất mong được anh giúp đỡ.
Xin chân thành cảm ơn!

 

[huuthang_bd]

Đúng là em muốn xoá dòng cuối cùng. Nhưng không biết cách nên em mới làm thẽ (dân không chuyên và cũng chưa có thời gian để nghiên cứu về code mà)> Nếu mà có cách đơn giản hơn rất mong được anh giúp đỡ.
Xin chân thành cảm ơn!

Thử cách này thử xem.

Sub SuaLai()
With [B65536].End(xlUp)
    .Offset(, -1).Resize(, 3).ClearContents
    .Offset(, 3).Resize(, 7).ClearContents
End With
End Sub

 

[TrungChinhs]

hoặc

Sub SuaLai()
With [B65536].End(xlUp)
    Union(.Offset(, -1).Resize(, 3), .Offset(, 3).Resize(, 7)).ClearContents
End With
End Sub

 

[ndu96081631]

hoặc

Sub SuaLai()
With [B65536].End(xlUp)
    Union(.Offset(, -1).Resize(, 3), .Offset(, 3).Resize(, 7)).ClearContents
End With
End Sub

Chính xác là cách này ---> Nhóm lại, rồi "xơi" 1 lần, bao giờ cũng sẽ nhanh hơn là làm từng cái một