Excel表格的快速动态扩展与删除行

最新推荐文章于 2024-10-30 10:30:23 发布

taller_2000

最新推荐文章于 2024-10-30 10:30:23 发布

阅读量818

点赞数 5

分类专栏：表格事件 VBA 文章标签：超级表 ListObject Excel表格自动扩展快速删除

本文链接：https://blog.csdn.net/taller_2000/article/details/135697811

版权

本文介绍了如何使用VBA在Excel工作表中，通过Worksheet_Change和Worksheet_BeforeDoubleClick事件，实现表格扩展（新行添加、自动序号和NA填充）及双击删除最后一行的功能，适用于表格列数不确定的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

实例需求：工作表中的表格（ListObject）名称为Table1，表格列数不确定，需要实现如下功能：

当用户完成最后一行最后一列输入之后（如果该单元格为空，则视为输入未完成），表格自动扩展一行
扩展行中，第一列填充自动序号，其他列填充NA
如果用户双击表格中最后一行的任意单元格，那么删除该行，并相应调整表格单元格范围

效果如下所示。

请添加图片描述
示例代码如下。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oTab As ListObject, oListRow As ListRow
    Const TAB_NAME As String = "Table1"
    If Target.CountLarge = 1 And Len(Target.Cells(1).Value) > 0 Then
        Set oTab = Me.ListObjects(TAB_NAME)
        With oTab
            If Not Application.Intersect(.Range.Columns(.ListColumns.Count), Target) Is Nothing Then
                If Target.Offset(1).ListObject Is Nothing Then
                    Set oListRow = .ListRows