Excel VBA技术咨询：如何实现每次运行代码新增选中区域行并保存，以及动态调整透视表数据选择范围

当然有办法实现！分两步就能搞定：

1. 运行代码给选中区域插入新行 #

用VBA的Insert方法就能轻松实现，先判断是否有选中区域，再插入整行：

Sub AddRowToSelectedRange()
    ' 先确认用户选中了单元格区域
    If TypeName(Selection) = "Range" Then
        ' 在选中区域的上方插入一行（想在下方插就把xlDown改成xlUp）
        Selection.EntireRow.Insert Shift:=xlDown
    End If
End Sub

2. 退出Excel时自动保存所有更改 #

要实现关闭时自动保存，需要在ThisWorkbook模块里添加事件代码：

1. 按Alt+F11打开VBA编辑器
2. 在左侧工程窗口找到你的工作簿，双击ThisWorkbook
3. 粘贴下面的代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 自动保存当前工作簿
    ThisWorkbook.Save
End Sub

这样每次关闭Excel时，所有修改（包括插入的行）都会自动保存。

你的思路太对了！用动态范围代替固定行号，完美适配透视表行数变化的场景。优化后的代码如下：

Sub A_Data_Refresh_Select()
    Dim pivotTbl As PivotTable
    Dim targetRange As Range
    Dim lastDataRow As Long
    Dim excludeRowCount As Integer
    
    ' 这里设置要排除的末尾行数，按需改成2或3
    excludeRowCount = 3
    
    ' 刷新指定数据透视表
    Set pivotTbl = ActiveSheet.PivotTables("PivotTable2")
    pivotTbl.PivotCache.Refresh
    
    ' 动态获取B列最后一行数据的行号（假设数据从B19开始）
    lastDataRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
    
    ' 生成要选择的范围：从B19到G列的（最后一行-排除行数）
    Set targetRange = ActiveSheet.Range("B19:G" & (lastDataRow - excludeRowCount))
    
    ' 选中目标范围
    targetRange.Select
    
    ' 如果要直接复制到其他工作表，不用选中，直接用下面这句替换上面的Select：
    ' targetRange.Copy Destination:=Sheets("目标工作表名").Range("A1")
End Sub

代码关键点说明： #

• excludeRowCount = 3：可灵活调整要排除的末尾行数，改成2就排除最后2行
• lastDataRow = ...：通过B列自动定位数据最后一行，再也不用固定写死509这种行号
• 若不需要手动选中区域（VBA操作更推荐直接对范围操作），可以直接用Copy语句跳过选中步骤，效率更高

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