ลบข้อมูลที่ละบรรทัด จนถึงบรรทัดหัวข้อ

[aroydee]

ต้องการสั่งเลิกทำ หรือ ลบย้อนกลับทีละบรรทัด ครับ
แต่เงื่อนไขคือ ลบย้อนกลับไปถึงบรรทัดที่กำหนดเท่านั้น บรรทัดที่อยู่สูงกว่านั้นจะไม่ถูกลบ
หรือบรรทัดที่เป็นหัวข้อจะไม่ถูกลบ
ที่ทดลองเขียน มันลบขึ้นไปหมดเลย

Code: Select all

Sub UndoScore()
Application.ScreenUpdating = False
    With Sheets("Sheet2")
       Range("B" & Rows.Count).End(xlUp).Resize(1, 5).ClearContents
    End With
Application.ScreenUpdating = True 
End Sub

[snasui]

ลองแนบไฟล์ตัวอย่างมาดูกันจะได้สะดวกในการตอบครับ

[aroydee]

ไฟล์ตัวอย่างครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Application.ScreenUpdating = False
With Sheets("Data")
    If .Range("b" & .Rows.Count).End(xlUp).Row = 2 Then Exit Sub
    .Range("B" & .Rows.Count).End(xlUp).Resize(1, 6).ClearContents
End With
Application.ScreenUpdating = True

[aroydee]

ใช้ได้เลยครับ
ขอบคุณครับ