สอบถามโค๊ด VB ลบข้อมูลส่วนเกิน
Posted: Sat Mar 02, 2024 6:55 pm
จากไฟล์ที่แนบมา
ต้องการลบข้อมูลในคลอลัมน์ H โดยตรวจสอบว่าในคลอลัมน์ F มีข้อมูลถึงแถวไหน
หากมีข้อมูลในคลอลัมน์ H ที่เกินมาให้ลบทิ้ง โดยไม่ให้ลบเกินแถวที่ 34
จะต้องปรับโค๊ดอย่างไรครับ
ต้องการลบข้อมูลในคลอลัมน์ 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