Excel - 使用特定格式添加行到底部

Question

我不确定这是否可行，但我正在尝试使用我的excel工作簿并创建一个按钮，当您单击它时，它将使用某些格式在活动工作簿的底部添加一行。例如，在附图中我想点击按钮，一行将插入第14行，第10行的格式相同。这可能吗？我现在设置它从上面的单元格复制格式，但它不会总是在上面。

Excel问题：

Answer 1

类似下面的代码会按照您的要求执行：

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set you Sheet above
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'find the last row with data on Column A Sheet1
ws.Range("A10:C10").Copy
'copy formating on row 10, amend range as required
ws.Range("A" & LastRow + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'paste the formating into the next free row at the bottom of Column A
End Sub