VBA实战-创建数据透视表

Sub 创建数据透视表() ActiveWorkbook.Names.Add Name:="database1", RefersToR1C1:= _ "=OFFSET(R4C3,