excel - 如何创建 1000 个宏按钮而不单独创建每个按钮

Question

我正在做一个工作项目，最后一块拼图是在每一行的末尾创建一个宏按钮。宏会将信息移动到第二张纸并清除在第一张纸上输入的信息。

我需要这个 1000 行，有没有办法创建 1000 个仅针对它们所附加的行进行格式化的宏？

我使用 Excel 中的记录按钮创建了下面的代码，我对 VBA 很陌生，所以任何建议都将不胜感激！

更新的 VBA！

Dim Cell As Range
With Sheets(1)
      For Each Cell In .Range("H2:H" & .Cells(.Rows.Count, "H").End(xlUp).Row)
        If Cell.Value = "Completed" Then

            .Rows(Cell.Row).Copy Destination:=Sheets(2).Rows(Cell.Row)
            .Rows(Cell.Row).SpecialCells(xlCellTypeConstants).ClearContents
        End If
    Next Cell
End With

End Sub

标签： excelvba