Я только начинаю создавать макросы и следую руководству по созданию сводных таблиц с переменными данными.
Мой код продолжает возвращаться Ошибка выполнения 91. Строка, которая вызывает проблему, я выделил ниже. Буду признателен за любые советы, поэтому я могу перейти к следующим шагам процесса.
Option Explicit
Dim wb As Workbook
Dim wsData As Worksheet, wsPT As Worksheet
Sub Create_Audience_Pivot_Table()
Dim LastRow As Long, LastColumn As Long
Dim DataRange As Range
Dim PTCache As PivotCache
Dim PT As PivotTable
Set wb = ThisWorkbook
Set wsData = ThisWorkbook.Worksheets("Enter Raw Data")
With wsData
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
LastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column
**DataRange = .Range(.Cells(1, 1), .Cells(LastRow, LastColumn))**
Set wsPT = wb.Worksheets.Add
wsPT.Name = "Audience Pivot"
'// Setting where Excel holds data in memory for pivot table
Set PTCache = wb.PivotCaches.Create(xlDatabase, DataRange)
Set PT = PTCache.CreatePivotTable(wsPT.Range("B5"), "Audience Attrition")
End With
'// Releasing objects memory
Set PT = Nothing
Set PTCache = Nothing
Set wsPT = Nothing
Set wsData = Nothing
Set wb = Nothing
End Sub