Excel 将形状移动到最后一行

我有一个宏按钮指定给Excel表格末尾的形状。 它打开一个用户表单，用于向表中添加数据

问题是，形状不会随着每个新条目向下移动，最终会出现在表的顶部

形状设置为随单元格移动，但没有插入实际行，只有添加到表末尾的数据

---

如何使用Excel VBA使其与第一个空行一起移动？

将此代码放置在标准模块上，并在将数据写入工作表后，调用此代码，将按钮（形状）放置到第一个空行。 根据您的要求进行更改

Sub MoveButton()
Dim ws As Worksheet
Dim lr As Long
Dim buttonCell As Range
Dim shp As Shape
Set ws = Sheets("Sheet1")   'Sheet where shape is inserted
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1  'first empty row in column A
Set buttonCell = ws.Cells(lr, "A")  'setting the cell where button will be placed
Set shp = ws.Shapes("myShape")  'name of the shape is "myShape", change it as per your requirement
'set the shape dimensions
With shp
    .Left = buttonCell.Left
    .Top = buttonCell.Top
End With
End Sub

---

你应该在问之前表现出努力。我建议你读一读。对不起，我不是以英语为母语的人，我会用我的语言写这篇完美的文章。你对课文的改动对我来说没有多大意义。。。谢谢你编辑它，也很抱歉没有付钱，我很忙。