สอบถามโค๊ด VB ลบข้อมูลส่วนเกิน

[tigerwit]

จากไฟล์ที่แนบมา
ต้องการลบข้อมูลในคลอลัมน์ H โดยตรวจสอบว่าในคลอลัมน์ F มีข้อมูลถึงแถวไหน
หากมีข้อมูลในคลอลัมน์ H ที่เกินมาให้ลบทิ้ง โดยไม่ให้ลบเกินแถวที่ 34
จะต้องปรับโค๊ดอย่างไรครับ

Code: Select all

Sub ClsOverTime()
    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("FL" & lastRow)).ClearContents
End With
End Sub

[snasui]

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

Code: Select all

'Other code
        If lastRow > 34 Then lastRow = 34
        .Range("H" & j, .Range("FL" & lastRow)).ClearContents
'Other code

[tigerwit]

ขอบพระคุณอย่างสูงครับ