时间戳

首页 > 解决方案 > VBA - 根据用户表单标准插入两个新行，并复制单元格范围的 excel 公式

excel - VBA - 根据用户表单标准插入两个新行，并复制单元格范围的 excel 公式

问题描述

这个问题非常棘手，所以我添加了更多图像以使其更好地理解，这是我的 Excel 表在添加任何内容之前看起来像甘特图。

在此处输入图像描述

在此 Excel 工作表中，单元格由用户表单填充，单元格值“G3”根据“预定”值单元格“E4”和“F5”减少

图片

所需输出：如何根据成员之间的“红色”和“蓝色”在A 列中添加新的“成员”。重要的是甘特图也应该像其他成员一样添加。

输出应如下图所示：

在此处输入图像描述

我正在尝试使用以下代码的行插入方法，但它只是添加了一个新行，但没有满足我的要求。

Sub Insert()
    'Select and find where to insert new row
    ActiveSheet.Range("A:A").Find(What:=Me.cboteam.Value, LookIn:=xlFormulas, Lookat:=xlWhole)
    ActiveCell.EntireRow.Insert
    ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown,CopyOrigin:=xlFormatFromLeftOrAbove
 End Sub

标签： excelvbauserform

解决方案

尝试这个：

Sub Insert()
    'Select and find where to insert new row
    Dim rngFound As Range: Set rngFound = ActiveSheet.Range("A:A").Find(What:=Me.cboteam.Value, LookIn:=xlFormulas, Lookat:=xlWhole)
    rngFound.Offset(1, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    rngFound.Offset(1, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Debug.Print rngFound.Offset(1, 0).Resize(2, 1).Address
    rngFound.Resize(3, 1).EntireRow.FillDown
 End Sub

推荐阅读