如何用宏实现Excel透视表左右滚动至边缘的箭头按钮？

当然可以实现，以下提供两种适配你需求的方案：

方案1：沿用现有SendKeys逻辑实现 #

和你当前上下滚动的宏逻辑一致，利用Excel默认快捷键实现快速跳转：

• 滚动至最左边缘的宏：

Sub TableLeft()
    Application.SendKeys ("^{LEFT}") ' 跳转至当前连续数据区域最左列
End Sub

• 滚动至最右边缘的宏：

Sub TableRight()
    Application.SendKeys ("^{RIGHT}") ' 跳转至当前连续数据区域最右列
End Sub

注：此方案依赖当前焦点在透视表数据区域内，否则可能跳转到其他数据区域的边缘。

方案2：基于透视表对象的稳定实现（推荐） #

针对列数动态变化的场景，直接定位透视表的边缘单元格更可靠，避免SendKeys的焦点问题：

Sub PivotTableLeft()
    Dim pt As PivotTable
    ' 获取当前选中单元格所属的透视表
    Set pt = ActiveCell.PivotTable
    ' 定位并滚动到透视表最左列的首单元格
    pt.TableRange1.Cells(1, 1).Select
    ActiveWindow.ScrollRow = pt.TableRange1.Cells(1, 1).Row
    ActiveWindow.ScrollColumn = pt.TableRange1.Cells(1, 1).Column
End Sub

Sub PivotTableRight()
    Dim pt As PivotTable
    Set pt = ActiveCell.PivotTable
    ' 计算透视表总列数，定位最右列的首单元格
    Dim lastCol As Integer
    lastCol = pt.TableRange1.Columns.Count
    pt.TableRange1.Cells(1, lastCol).Select
    ActiveWindow.ScrollRow = pt.TableRange1.Cells(1, lastCol).Row
    ActiveWindow.ScrollColumn = pt.TableRange1.Cells(1, lastCol).Column
End Sub

注：使用此宏时，确保点击按钮前选中透视表内任意单元格，宏会自动定位到对应透视表的边缘。

内容的提问来源于stack exchange，提问作者Maria A