从上面的macros复制公式和格式

我有一个电子表格，每天在每一天的新行上input一组新的数据，该行包含公式和格式。 我希望能够点击一个button，并在input的数据最后一行下面添加一行，只复制公式和格式，准备input新的数据。

以下是我的代码：

Sub Button1_Click() Dim ws As Worksheet Dim varUserInput As Variant Set ws = ThisWorkbook.Sheets("Summary") With ws varUserInput = .Range("D" & .Rows.Count).End(xlUp).Row .Rows(varUserInput).Insert Shift:=xlDown .Rows(1).Copy .Rows(varUserInput) .Rows(varUserInput - 1).Copy .Rows(varUserInput + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End With Application.CutCopyMode = False End Sub 

问题是它只会每次从同一个隐藏行复制公式。

Answer 1

这是你正在尝试（未testing）？

 Sub Button1_Click() Dim ws As Worksheet Dim varUserInput As Variant varUserInput = InputBox("Enter Row Number where you want to add a row:", "What Row?") If varUserInput = "" Then Exit Sub Set ws = ThisWorkbook.Sheets("Sheet1") '<~~ Change as applicable With ws .Rows(varUserInput).Insert Shift:=xlDown .Rows(1).Copy .Rows(varUserInput) .Rows(varUserInput - 1).Copy .Rows(varUserInput).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End With Application.CutCopyMode = False End Sub