Excel - VB，从一行复制内容并将该行附加在previouslty附加行的底部

Question

我一直在搜索和搜索，虽然我遇到了一些非常有用的代码，但我仍在努力调整代码以适应我的确切应用。

我想要实现的目标：

REFERENCE PICTURE

我需要复制Row（21）的内容并在它们自身后附加它们 - 行（前一个+ 1）同时保持连续的公式，这样WP＃增加1.我需要这个新生成的行适合当前第24行（但显然行24将增加它的行数，因为用户点击＆＃34;添加Waypoint＆＃34;），因为我将使用此行来计算在此计算的公式的总和它上面的行前面。

我希望这是有道理的，因为我只是在写作时迷惑自己!!

在上下文中，用户希望插入WP NAME，Longitude＆amp;纬度，车道 - 航线，距离，DTG和航程时间都将使用之前的行进行计算。数据

我已尝试录制Macro，但我只能在我以前复制的行下面生成一个新行。

**编辑 我之前刚刚使用过记录宏，它出现了以下代码：

Sub NewWayPoint()
'
' NewWayPoint Macro
' Create new Waypoint Row
'

'
Rows("22:22").Select
Selection.Copy
Rows("23:23").Select
Selection.Insert Shift:=xlDown
End Sub

干杯， 布拉德

Answer 1

我设法用一个单元格作为计数器来解决这个问题：

Sub AddWPMacros()
Click_Count_Add
NewWayPoint
End Sub


Sub Click_Count_Add()
Sheets("Passage Plan").RANGE("V6").Value = Sheets("Passage Plan").RANGE("V6").Value + 1
End Sub


Sub NewWayPoint()

Dim Copyrange As String
Dim PasteRange As String

Let Copyrange = RANGE("V6:V6").Cells
Let PasteRange = Copyrange + 1

Rows(Copyrange).Select
Selection.Copy
Rows(PasteRange).Select
Selection.Insert Shift:=xlDown

End Sub

Add Waypoint按钮激活AddWPMacros并在单元格中的计数器上打勾。干得好！