ลบข้อมูลในตาราง table

[yodpao.b]

ลบข้อมูลในตาราง table
ตรงการลบข้อมูลทั้งแถว จะถึงแถวสุดท้าย ใช้ code ดังนี้

Code: Select all

Sub Macro1()

    Range("A11:M11").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.EntireRow.Delete

End Sub

ลบไม่ได้ครับ มันคงจะลบไปโดนตาราง Pivotable
จะใช้โคดครับ แก้ไขอย่างไรดี

[puriwutpokin]

ปรับตามนี้ครับ

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