Добавление новой таблицы в Excel с помощью макросов/VBA

Question

У меня есть макрос, который вставляет новую таблицу в в диапазоне, и имена новая таблица на основе другого значения ячеек:

Select Code copy to clipboard 
Sub sbCreatTable() 
Sheet1.ListObjects.Add(xlSrcRange, Range("B1:B3"), , xlYes).Name = Range("a2").Text 

Однако лист я бы как добавить таблицу в, уже имеет диапазон таблиц, все на Row B, поэтому мне нужно, чтобы таблица была добавлена ​​в конец этих строк и вставлена ​​в первую пустую ячейку в строке B. Код, который у меня есть, будет только вставьте это в определенный диапазон.

Может ли кто-нибудь помочь, указав на меня в правильном направлении?

Answer 1

Я интерпретировал ваше повествование о том, что вы хотите, чтобы новая таблица сразу же справа от остальных таблиц начиналась со второго. Я обнаружил, что лучше всего сохранить один пустой столбец как «ров» между структурированными таблицами ListObject.

With Sheet1 
    With .ListObjects.Add(xlSrcRange, .Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Resize(3, 1), , xlYes) 
     .Name = .Parent.Range("a2").Text 
    End With 
End With 

Если вы хотите удалить пустой столбец, изменить Range.Offset property к .Offset(0, 1).