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

Question

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

在此Excel工作表单元格得到由用户窗体填充的单元值“G3”获取基于减少的“预订”值细胞“E4”和“F5”

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

输出应如下图所示：

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

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

Answer 1

尝试这个：

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