Как мне добавить несколько строк в макрос Power Query Table VBA?

#excel #vba

#excel #vba

Вопрос:

У меня есть лист только с кнопкой для добавления дополнительных строк, необходимых для завершения. Это трудоемко, и я знаю, что VBA может улучшить его, однако я новичок в Power Query и меняет ли это каким-либо образом код VBA.

Любые советы приветствуются. Спасибо

     Sub AddRow()
    ActiveSheet.Unprotect
    Range("A1").End(xlDown).ListObject.ListRows.Add AlwaysInsert:=False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=False, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
 

Комментарии:

1. При обновлении запроса PQ должен считываться в таблице в том виде, в каком она существует на момент нажатия кнопки обновления. Поэтому, если вы измените структуру таблицы, вручную или с помощью VBA, PQ должен уловить изменения. Это то, что вы спрашиваете?

2. Привет, Рон, это больше о добавлении кода VBA в приведенное выше, чтобы добавить несколько строк вместо 1x. PQ просто вызывает беспокойство, поскольку я не уверен, повлияет ли стандартное редактирование кода VBA (которое я, вероятно, мог бы сделать сам) на существующие запросы. Спасибо

3. Я предлагаю вам внести изменения в свой код VBA и посмотреть, что произойдет с вашим запросом. Отправьте ответ или задайте новый вопрос, если есть проблемы.