刚从Excel转Access确实会遇到这种小痛点——Excel里拖选行后状态栏直接显示数量，但Access默认没这个功能，不过用VBA完全可以实现，不管是连续选还是按住Ctrl选不连续的记录，都能准确统计数量，刚好适配你频繁复制粘贴的场景。

下面分两种场景给你代码，还有便捷的调用方法：

一、连续选中记录的快速统计（适合大部分日常场景） #

如果平时主要是拖选连续的记录，用这个轻量版代码就够了：

步骤1：添加VBA代码 #

1. 按Alt+F11打开VBA编辑器
2. 点击菜单栏「插入」→「模块」，新建一个标准模块
3. 粘贴以下代码：

Sub GetSelectedRecordCount()
    Dim selectedCount As Integer
    Dim activeSheet As Object
    
    ' 检查当前是否在数据表/查询视图
    On Error Resume Next
    Set activeSheet = Screen.ActiveDatasheet
    On Error GoTo 0
    
    If activeSheet Is Nothing Then
        MsgBox "请先在数据表或查询视图中选中记录再执行！", vbExclamation, "提示"
        Exit Sub
    End If
    
    ' 获取选中的连续记录行数
    selectedCount = activeSheet.SelHeight
    
    MsgBox "当前选中记录数：" & selectedCount & " 条", vbInformation, "统计结果"
End Sub

代码说明 #

• Screen.ActiveDatasheet：指向当前激活的数据表或查询视图
• SelHeight：直接返回连续选中区域的行数，速度极快
• 错误处理避免在窗体视图等非数据表场景下报错

二、支持不连续选中的精确统计（全场景适配） #

如果需要统计按住Ctrl选中的不连续记录，用这个增强版代码：

Sub GetSelectedRecordCount_All()
    Dim rs As DAO.Recordset
    Dim selectedCount As Integer
    Dim activeSheet As Object
    
    On Error Resume Next
    Set activeSheet = Screen.ActiveDatasheet
    On Error GoTo 0
    
    If activeSheet Is Nothing Then
        MsgBox "请先在数据表或查询视图中选中记录再执行！", vbExclamation, "提示"
        Exit Sub
    End If
    
    ' 复制当前数据表的记录集
    Set rs = activeSheet.RecordsetClone
    selectedCount = 0
    
    ' 遍历所有选中的记录（包括不连续的）
    With activeSheet
        Do While .SelBookmark <> .Bookmark
            selectedCount = selectedCount + 1
            rs.Bookmark = .SelBookmark
            .NextSelectedRecord
        Loop
        ' 统计最后一条选中的记录
        If .SelBookmark = .Bookmark Then
            selectedCount = selectedCount + 1
        End If
    End With
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
    Set activeSheet = Nothing
    
    MsgBox "当前选中记录数：" & selectedCount & " 条", vbInformation, "统计结果"
End Sub

注意事项 #

• 确保VBA编辑器中引用了DAO库：点击「工具」→「引用」，勾选Microsoft DAO x.x Object Library（x.x为版本号，比如3.6或12.0）
• 遍历不连续记录时，大数据集可能有轻微延迟，但日常复制粘贴的量级完全没问题

三、快速调用的方法 #

为了用起来像Excel一样顺手，推荐把这个宏绑定到快捷键或快速访问工具栏：

方法1：添加到快速访问工具栏 #

1. 点击Access左上角快速访问工具栏的下拉箭头，选择「其他命令」
2. 在「从下列位置选择命令」中选「宏」，找到你创建的宏（比如GetSelectedRecordCount），添加到右侧列表，点击确定即可
3. 以后选中记录后，点击这个按钮就能看到数量

方法2：设置快捷键 #

1. 点击「文件」→「选项」→「自定义功能区」，点击下方的「自定义快捷键」
2. 在「类别」中选「宏」，选中你的宏，设置一个快捷键（比如Ctrl+Shift+S），点击确定
3. 选中记录后按快捷键就能直接弹出统计结果

这个方案完全适配你从Excel转Access后的需求，不管是连续还是不连续选中，都能准确知道选中的记录数，复制粘贴的时候就不用怕选多或选少了。

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