Так что у меня возникают проблемы с определением динамического c табличного диапазона с помощью функции индекса, я думаю, что проблема возникает из-за того, что в таблице, для которой я пытаюсь создать динамический c диапазон, есть ячейки внутри, которые являются частью массив, но я не уверен.
В настоящее время я использую эту функцию, которая работает в том смысле, что она называет H17 нижней правой ячейкой с текстом в диапазоне;
=INDEX(C2:H1000,(COUNTA(C2:C103)-COUNTBLANK(C2:C103)),COUNTA(C2:H2))
(также Стоит отметить, что когда я изменяю вышеупомянутую функцию на эту, она перестает работать по какой-то причине - она выдает ошибку # ЗНАЧЕНИЕ?
=INDEX(C2:H1000,(COUNTA(C2:C1000)-COUNTBLANK(C2:C1000)),COUNTA(C2:H2))
Когда я помещаю верхнюю левую ячейку рядом с таким именем в имя Менеджер Не могу заставить его работать так же, как у меня есть другая таблица для работы внутри моего кода VBA, которая просто вставляет таблицу в текстовый документ?
=$C$2:INDEX(C2:H1000,(COUNTA(C2:C103)-COUNTBLANK(C2:C103)),COUNTA(C2:H2))
Я также использовал функцию CountA чтобы попытаться сосчитать только ячейки с номерами в столбце C, но это не сработало, используя следующую функцию:
=INDEX(C2:H1000,(COUNTA(C2:C1000)),COUNTA(C2:H2))
Код, используемый для вставки в слово:
Set tbl = ThisWorkbook.Sheets(7).Range("SummaryTableTest")
'& ThisWorkbook.Sheets(7).Cells(ThisWorkbook.Sheets(7).Rows.Count, 2).End(xlUp).Row).Value
'.Copy
'Copy the range
tbl.Copy
'Pause the Excel app for one second
Application.Wait Now() + #12:00:01 AM#
'Paste the object (Ensuring that it will be paste from the correct clip board i.e. Excel)
With WordApp.Selection
WordDoc.Bookmarks("SummaryTable").Range.PasteExcelTable LinkedToExcel:=False, _
WordFormatting:=True, _
RTF:=False
End With
Таблица выглядит следующим образом:
