看起来你这套Access→Excel的州级上报流程已经搭得八九不离十了，就差最后一步把顶部的记录计数挪到正确位置对吧？我给你整理了两种适配你场景的实操方案，都是用VBA实现的，毕竟你的流程起点在Access，用VBA最顺手：

方案1：在Access按钮的现有代码里加逻辑（推荐，一站式搞定） #

既然你的触发按钮在Access里，完全可以在填充完Excel源表、同步到格式化表B之后，直接用Access的VBA操控Excel，把计数挪到目标位置。

具体代码片段（可以直接插到你现有按钮的VBA代码末尾） #

' --- 新增：调整记录计数位置的代码 ---
Dim xlApp As Object, wbReport As Object, wsFormatted As Object
Dim lastRow As Long, countVal As Variant

' 启动Excel后台进程（不弹窗口）
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False

' 打开你的上报Excel文件（替换成你实际的文件路径）
Set wbReport = xlApp.Workbooks.Open("C:\Users\你\Documents\州级上报文件.xlsx")
' 定位到格式化表B（替换成表B的实际名称）
Set wsFormatted = wbReport.Worksheets("B")

' 1. 先把顶部的计数值取出来（假设现在计数在A1，要是不在就改这个单元格地址）
countVal = wsFormatted.Range("A1").Value
' 清空原来的顶部位置
wsFormatted.Range("A1").ClearContents

' 2. 找到A列最后一条有数据的行
lastRow = wsFormatted.Cells(wsFormatted.Rows.Count, "A").End(-4162).Row
' 注：-4162是xlUp的常量值，因为用Late Binding（CreateObject）不能直接用xlUp

' 3. 把计数放到最后一行的下一行（A列）
wsFormatted.Range("A" & lastRow + 1).Value = countVal
' 可以加个格式，比如加粗，和上报要求对齐
wsFormatted.Range("A" & lastRow + 1).Font.Bold = True

' 收尾：保存文件、关闭Excel、释放资源
wbReport.Save
wbReport.Close
xlApp.Quit
Set wsFormatted = Nothing: Set wbReport = Nothing: Set xlApp = Nothing
' --- 新增代码结束 ---

小提示 #

• 要是你的Excel文件已经打开了，就把Workbooks.Open那行改成Set wbReport = xlApp.Workbooks("州级上报文件.xlsx")
• 如果原来的计数不在A1，把Range("A1")改成你实际的计数单元格地址

方案2：在Excel表B里写自动触发的宏（适合需要实时同步的场景） #

要是你希望每次源表数据更新、同步到表B时，计数自动跑到正确位置，可以在表B的工作表里写个事件宏：

操作步骤 #

1. 打开你的上报Excel文件，右键点击表B的标签→选择「查看代码」
2. 把下面的代码粘贴到弹出的代码窗口里
3. 把原来的记录计数移到一个不会被数据覆盖的辅助单元格（比如Z1），作为计数的数据源

代码示例 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastRow As Long, countVal As Variant
    
    ' 从辅助单元格取计数值（这里用Z1，你可以改成自己的辅助单元格）
    countVal = Me.Range("Z1").Value
    ' 找到A列最后一条数据的行
    lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
    
    ' 更新计数位置
    Me.Range("A" & lastRow + 1).Value = countVal
    ' 按需加格式
    Me.Range("A" & lastRow + 1).Font.Bold = True
End Sub

注意 #

• 保存文件时要选「Excel启用宏的工作簿（.xlsm）」格式，不然宏会失效
• 要是表B有保护，得先解除保护再操作，或者给宏加解锁代码

额外优化技巧 #

如果你的记录计数是动态计算的（比如用=COUNTA(A:A)-1统计有效行数），完全不用手动挪值，直接把公式写到目标位置就行：

' 替换方案1里的赋值代码
wsFormatted.Range("A" & lastRow + 1).Formula = "=COUNTA(A:A)-1"

这样每次数据更新，计数会自动计算，位置也永远在最后一行的下方，一劳永逸！

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