如何在Excel工作表中创建一个按钮，复制其下方工作表的“相应部分”并粘贴它

Question

我为公司创建了一张excel表，我们用它来计算我们产品的价格。我们不是一家大批量生产公司。我们每周可以获得25或30个新项目，这些项目可能有1到50个单独的部分，每个部分可能有2个或3个。

所以在这个excel工作表模板中，我复制并粘贴了大约10个相同的东西，这是一个大型的不同计算组合。

这就是单个装配组的样子：

您可以看到有3个钣金部分，3条挤出生产线，3个采购部件等......

我需要的是几个按钮。也许在装配组的标题上，可能单独在每个部分的底部。

此按钮只需插入其中一个部分的另一个新的空白副本。因此，如果单击“添加钣金”按钮，则会在最后一个钣金部分下添加一个新的空白钣金部分，并将其余部分向下推。

我已经找了好几个月的方法来做到这一点。复制和插入复制的单元格有时会出错，因为总计和引用有时会混乱。

任何人都知道怎么做？

Answer 1

这是一个示例宏，可以满足您的需求。此示例假定您要复制的数据位于A3到E4的单元格中，但您可以将其更改为与您相关的单元格。

Dim height As Double
Dim weight As Double
Dim gender As String
Dim newWeight as Double

'I'd like to set the loop here
'for each row do this
height = d2.value
weight = f2.value
gender = k2.value

'then run through my equations
If gender = "F" and weight < 20 Then
 newWeight = weight + 5
ElseIf gender = "F" and weight > 20 Then
 newWeight = weight -2
End If

l2.value = newWeight.value
'Then clear variables and run through the new row

然后，您可以将此宏指定给按钮。这是使用我制作的按钮的代码：

单击该按钮时，宏将执行以下操作：