สอบถาม CodeVB สั่ง ClearContents ในเซลที่เกินมาตามเงื่อนไข

[tigerwit]

จากไฟล์ที่แนบมา

Code: Select all

Sub ClsOverScore()
    Dim lastRow As Long
    Dim i As Long, r As Range, j As Long
    On Error Resume Next
    With ActiveSheet
        Set r = .Range("F2")
        Do While r.Offset(i, 0).Value <> ""
            i = i + 1
            j = r.Offset(i, 0).Row
        Loop
        lastRow = .Range("F" & .Rows.Count).End(xlUp).Row
        .Range("H" & j, .Range("P" & lastRow)).ClearContents
End With
End Sub

ต้องการลบคะแนนครั้งที่ 1 - ครั้งที่ 9 โดยมีเงื่อนไขให้ตรวจสอบว่า ถ้าในคลอลัมน์ H แถวในว่างไม่มีข้อมูลใดใด ให้ทำการลบข้อมูลที่มีอยู่ตั้งแต่แถวนั้นลงไป ต้องปรับโค๊ดอย่างไรครับ

[snasui]

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

Code: Select all

With ActiveSheet
    .Range("f32", .Range("f32").End(xlUp)).Offset(1, 0).Offset(, 2).Resize(, 9).ClearContents
End With