VBA Clearing Specific Table Columns

[bs0d]

I'd like to clear specific columns in an Excel Table (in VBA). Currently using v2013.

.ClearContents will clear the entire table. I want to retain field names in the left-most column.

Is there a way to detect the the end of the table like a uBound() on an array and perhaps loop to clear DataBodyRange?

 

[Joe4]

Does this help?
excel vba - How to select clear table contents without destroying the table? - Stack Overflow

 

[Norie]

DataBodyRange will return a range and it should be straightforward to manipulate it to only clear the columns you want.

For example this will clear all columns bar the leftmost.

Dim lst As ListObject
Dim rng As Range

    Set lst = ActiveSheet.ListObjects("Table2")
    
    Set rng = lst.DataBodyRange
    
    rng.Offset(, 1).Resize(, rng.Columns.Count - 1).ClearContents

 

[bs0d]

DataBodyRange will return a range and it should be straightforward to manipulate it to only clear the columns you want.

For example this will clear all columns bar the leftmost.

Dim lst As ListObject
Dim rng As Range

    Set lst = ActiveSheet.ListObjects("Table2")
    
    Set rng = lst.DataBodyRange
    
    rng.Offset(, 1).Resize(, rng.Columns.Count - 1).ClearContents

This does the trick, Norie. Thanks.

 

[bs0d]

Can you "resize" the table to fit contents using the same/similar approach?