Excel VBA

1.将单元格移动到1,1单元格，

Application.GoTo Cells(1, 1), False

• False为不移动画面，只移动格子，不伴随滚动条的移动，也可以设置成True

用例：

Sub SellToA1()
    Dim ws As Worksheet
    Dim memo As String
    memo = ""
    For Each ws In ThisWorkbook.Worksheets
        If memo = "" Then memo = ws.Name
        ws.Activate
        Application.GoTo Cells(1, 1), True
    Next ws
    ThisWorkbook.Worksheets(memo).Activate
End Sub

2.设置范围并命名

ActiveWorkbook.Names.Add Name:="PIB_DATA", RefersToR1C1:=ActiveSheet.Range(Cells(1, 1), Cells(w_row, W_COL))

3.清除Pivot里面的项目数据

For Each pvtfield In Worksheets("Sheet名").PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields
    For Each pvtitem In pvtfield.PivotItems
        pvtitem.Delete
    Next
  Next

4.更新指定的Pivot

ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").RefreshTable