添加新行并复制相同的格式和公式

-1

例如，通过单击命令按钮，我必须在最后一行下添加新行。新行应该与上述其他行具有相同的格式和公式。上面的行有条件格式，颜色，下拉列表，数据验证，固定行高和公式。所有这些应该在创建新行时自动复制。工作表受到保护。你能帮我写些什么代码来获得最好的结果。此外，工作表应允许用户删除选定的行。谢谢。添加新行并复制相同的格式和公式

Sub Add_row() 
    ActiveSheet.Unprotect 
    ActiveSheet.Range("A13").CurrentRegion.Offset(ActiveSheet.Range("A13").CurrentRegion.Rows.Count - 1).Resize(2).EntireRow.FillDown 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True 
End Sub

来源

2017-04-13 Vinz B

欢迎来到StackOverflow。本网站不是免费的写作服务。请显示您已有的代码。 –

对不起，我没有任何代码，因为我仍然是VBA的初学者。那是我寻求一些帮助的原因。 –

欢迎来到堆栈溢出。 SO不是“我的代码”，“教我代码”或“显示从哪里开始”网站。对于具有特定问题的现有代码的人来说，可以获得克服上述问题的具体帮助。如果您还不知道如何编写代码，那么您必须先学习它：首先记录您希望Excel为您做的事情：https://www.youtube.com/watch?v=Q_HQGHPBYoo之后，看看代码并试着理解它。另外，您可能需要阅读以下内容：http://www.homeandlearn.org/然后，您应该能够自己为上述问题提供第一个解决方案。 – Ralph

看一看的Range.Copy Method：

Worksheets("Sheet1").Range("A1:D4").Copy 'example

和Range.PasteSpecial Method：

Worksheets("Sheet1").Range("D5").PasteSpecial Paste:=xlPasteFormats

有几个paste types。例如xlPasteFormats只能粘贴格式。

来源

2017-04-13 08:23:42

添加新行并复制相同的格式和公式

回答

相关问题