`
阅: 427 | 回: 3
发表于2023/8/30 10:10:50 楼主 
头像 等级:初学者
积分:0
财富值:2.0
身份:普通用户
后面的sheet加一行,前面汇总的sheet也同步加一行
我的个性签名
发表于 2023/8/30 10:12:17   
头像 等级:传说级人物
积分:1997
财富值:6
身份:系统管理员
可以看看模版定制 http://www.ffcell.com/Wo/index.aspx
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376
发表于 2023/9/1 10:16:28   
头像 等级:初学者
积分:3
财富值:2
身份:普通用户
可以考虑用Power Query实现
我的个性签名
发表于 2023/9/3 17:51:56   
头像 等级:学有小成
积分:23
财富值:2
身份:普通用户
你可以通过双击刚添加的行来实现同步增加一行的目的。你可以使用VBA代码来实现这个功能。下面是一个示例代码:

```vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 检查双击的区域是否是当前工作表的最后一行
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 根据你的实际工作表名称进行修改
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设以A列为基准
    If Target.Row = lastRow Then
        ' 在后面的sheet中插入一行
        Sheets("后面的sheet名称").Rows(lastRow + 1).Insert Shift:=xlShiftDown
        
        ' 在汇总的sheet中插入一行
        Sheets("汇总的sheet名称").Rows(lastRow + 1).Insert Shift:=xlShiftDown
        
        ' 更新汇总的sheet中的公式和数据
        
        ' 取消双击事件的默认行为
        Cancel = True
    End If
End Sub
```

请根据你的实际需求修改代码中的工作表名称和行插入的位置。将代码复制到你的工作簿的VBA编辑器中的相应工作表模块中(例如,Sheet1模块)。保存并关闭VBA编辑器。然后,当你双击最后一行时,代码将会执行插入行的操作,并更新汇总的sheet中的公式和数据。
敬天爱人,成人达已

快速回复

目前不允许游客发表,请 登录 注册 后再发贴。