EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
แล้วกระทู้นี้ ยังไม่จบใช่ไหมครับmonoza2019 wrote: ↑Thu May 16, 2024 1:42 pm ใช่ครับ ควรปรับสูตรหรือแก้สูตรไหน ให้ใช้งานได้จริง เพราะใช้งานได้แค่บางส่วน ที่ทำให้เห็นว่าค่าในสูตรมันผิดพลาดครับและควรนำไปแก้ก่อนใช้งานได้จริงครับ
Code: Select all
Sub Macro1()
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Table1393")
Dim lastRow As Long
lastRow = tbl.ListRows.Count
Dim i As Long
For i = lastRow To 11 Step -1
tbl.ListRows(i).Delete
Next i
End Sub