Page 1 of 1

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

Posted: Sat Mar 02, 2024 6:55 pm
by 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

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

Posted: Sat Mar 02, 2024 9:11 pm
by snasui
:D ตัวอย่างการปรับ Code ครับ

Code: Select all

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

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

Posted: Sun Mar 03, 2024 12:08 pm
by tigerwit
ขอบพระคุณอย่างสูงครับ