xin code Delete dòng xác định (1 người xem)

[quoc nhat]

em có câu hỏi này muốn nhờ các anh chị giúp.
giả sử ta có file excel. sheet 1
từ dòng A1:A10 là dòng cố định dùng để nhập tiêu đề.
dòng A20 chẳng hạn: em dùng để "tổng cộng"
trong khoảng từ A10 đến dòng " tổng cộng" đó em INSERT thêm vài dòng.
Mục đích của câu hỏi này là:
Em muốn xóa từ dòng A10 đến dòng "tổng cộng" đó không cần biết em đã Insert bao nhiêu dòng trong khoảng này nhưng muốn dữ lại A1:A10 và dòng tổng cộng
Mọi người giúp em và cho em File ví dụ nhé

 

[ndu96081631]

em có câu hỏi này muốn nhờ các anh chị giúp.
giả sử ta có file excel. sheet 1
từ dòng A1:A10 là dòng cố định dùng để nhập tiêu đề.
dòng A20 chẳng hạn: em dùng để "tổng cộng"
trong khoảng từ A10 đến dòng " tổng cộng" đó em INSERT thêm vài dòng.
Mục đích của câu hỏi này là:
Em muốn xóa từ dòng A10 đến dòng "tổng cộng" đó không cần biết em đã Insert bao nhiêu dòng trong khoảng này nhưng muốn dữ lại A1:A10 và dòng tổng cộng
Mọi người giúp em và cho em File ví dụ nhé

Nếu A1:A20 là dữ liệu thô (không chứa công thức) thì có thể dùng SpecialCells để định vị:

Sub Test1()
  Dim rDel As Range
  On Error Resume Next
  Set rDel = Range("A1:A20").SpecialCells(4)
  If Not rDel Is Nothing Then rDel.EntireRow.Delete
End Sub

Nếu A1:A20 có chứa công thức thì có thể dùng AutoFilter:

Sub Test2()
  With Range("A1:A20")
    .AutoFilter 1, ""
    .Offset(1).SpecialCells(12).EntireRow.Delete
    .AutoFilter
  End With
End Sub

vân vân...
Hàng đống cách

 

[TrungChinhs]

em có câu hỏi này muốn nhờ các anh chị giúp.
giả sử ta có file excel. sheet 1
từ dòng A1:A10 là dòng cố định dùng để nhập tiêu đề.
dòng A20 chẳng hạn: em dùng để "tổng cộng"
trong khoảng từ A10 đến dòng " tổng cộng" đó em INSERT thêm vài dòng.
Mục đích của câu hỏi này là:
Em muốn xóa từ dòng A10 đến dòng "tổng cộng" đó không cần biết em đã Insert bao nhiêu dòng trong khoảng này nhưng muốn dữ lại A1:A10 và dòng tổng cộng
Mọi người giúp em và cho em File ví dụ nhé

Theo tôi hiểu thì dòng "tổng cộng" là dòng cuối cùng chứ không phải là dòng 20
nếu đúng vậy thì trong câu lệnh Range("A1:A20") phải sửa thành Range([a1],[a65000].end(3))

 

[quoc nhat]

Nếu A1:A20 là dữ liệu thô (không chứa công thức) thì có thể dùng SpecialCells để định vị:

Sub Test1()
  Dim rDel As Range
  On Error Resume Next
  Set rDel = Range("A1:A20").SpecialCells(4)
  If Not rDel Is Nothing Then rDel.EntireRow.Delete
End Sub

Nếu A1:A20 có chứa công thức thì có thể dùng AutoFilter:

Sub Test2()
  With Range("A1:A20")
    .AutoFilter 1, ""
    .Offset(1).SpecialCells(12).EntireRow.Delete
    .AutoFilter
  End With
End Sub

vân vân...
Hàng đống cách

trước tiên em xin cảm ơn thầy đã giúp em.
Nhưng sao khi em áp dụng code của thầy vào file lại không được( có chỉnh địa chỉ range cho phù hợp)
Thôi cho em nhờ thầy chịu khó xem file của em và giúp em với.
1. Gọi Form
2. Ấn nút :thêm mới" vài lần thầy sẽ thấy các dòng được Insert
3. File này em làm nhằm phục vụ công việc của mình. đến cuối tháng em phải nhập lại nên em phải xóa dữ liệu củ đi. thay vì em xóa bằng tay giờ em muốn dùng code trên Form luôn.
Vậy nhờ thầy viết giúp em code trong nút lệnh "xóa tất cả" là delete dòng trong khoảng có đánh dấu màu đỏ đó thầy.( chỉ xóa các dòng màu trắng trong khoảng này thôi)
Thầy giúp em hàm Sum động trong các ô đánh dấu màu xanh nữa thầy nhé!
Thầy xem giúp em với nhé
em cảm ơn thầy!

 

[ndu96081631]

Nhưng sao khi em áp dụng code của thầy vào file lại không được( có chỉnh địa chỉ range cho

Dữ liệu bạn đưa lên khác xa hoàn toàn so với những gì bạn mô tả ở bài 1
(rút kinh nghiệm nhé: Hỏi thì phải hỏi cho chính xác)
Cụ thể bạn muốn xóa chổ nào trong file?

 

[quoc nhat]

Dữ liệu bạn đưa lên khác xa hoàn toàn so với những gì bạn mô tả ở bài 1
(rút kinh nghiệm nhé: Hỏi thì phải hỏi cho chính xác)
Cụ thể bạn muốn xóa chổ nào trong file?

Dạ cụ thể thì em muốn xóa những dòng mình đã insert khi mình dùng nút thêm mới trên Form đó thầy.

Cảm ơn thầy, em sẽ rút kinh nghiệm cho lần sau ạ!