Я получаю сообщение «ошибка компиляции: не удается назначить свойство только для чтения». Я не уверен, в чем проблема, может ли кто-нибудь увидеть проблему? кажется, это строка 6
#excel #vba #automation Вопрос: With wsData LastRow = .Cells(Rows.Count, "A").End(xlUp).Row LastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column Set DataRange = .Range(Cells(1, 1), .Cells(LastRow, LastColumn)) Set wsPT = wb.Worksheets.Add wsPT.Name = "Pivot Table" Set…